rwinfo.bas

星子行主机控制系统用于主机管理,方便远程操作,通信等功能.更 方便用于局域网,管理速度快,连接简单方便.注意:星子行连接可用 于带路由主机与带路由主机之间连接,非路由与非路由之间连接.带

Attribute VB_Name = "Rwinfo"
'软宇公司
Option Explicit


Public Sub Reinfo_Ini()

Dim StrTmp1 As String '可优化
Dim StrTmp2 As String

On Error GoTo sc
   
   Open App.path + "\Serconft.ini" For Input As #1
   Do While Not (EOF(1))
        Line Input #1, StrTmp1
        If Left(StrTmp1, 1) = "[" Then
           StrTmp1 = Trim(StrTmp1)
           Select Case StrTmp1
           
                  'Case "[Skin]"
                   '         Line Input #1, StrTmp1
                    '        StrTmp1 = Trim(StrTmp1)
                     '       StrTmp2 = Mid(StrTmp1, 6)
                      '      Pub_Ini.SkinPath = StrTmp2
                  Case "[Serconft]"
                            Line Input #1, StrTmp1
                            StrTmp1 = Trim(StrTmp1)
                            StrTmp2 = Mid(StrTmp1, 9)
                            main1.Scmtxt1.Text = StrTmp2
                            
                            Line Input #1, StrTmp1
                            StrTmp1 = Trim(StrTmp1)
                            StrTmp2 = Mid(StrTmp1, 9)
                            main1.Text4.Text = StrTmp2
                            
                            Line Input #1, StrTmp1
                            StrTmp1 = Trim(StrTmp1)
                            StrTmp2 = Mid(StrTmp1, 9)
                            main1.Text5.Text = StrTmp2
                            
                           
                            
                        Case "[Autconft]"
                        
                       Line Input #1, StrTmp1
                            StrTmp1 = Trim(StrTmp1)
                            StrTmp2 = Mid(StrTmp1, 9)
                            main1.Scmtxt1.Text = StrTmp2
                            
                            Line Input #1, StrTmp1
                            StrTmp1 = Trim(StrTmp1)
                            StrTmp2 = Mid(StrTmp1, 9)
                            main1.Text4.Text = StrTmp2
                            
                            Line Input #1, StrTmp1
                            StrTmp1 = Trim(StrTmp1)
                            StrTmp2 = Mid(StrTmp1, 9)
                            main1.Text5.Text = StrTmp2
                            
                            
                        
                
                 End Select
                                                           
                End If
                
                Loop
                  
        
    Close #1
    
    Exit Sub
    
sc:

Close #1

main1.SSTab1.Tab = 9

Call Freinfo_Ini

'MsgBox "网络服务出错", 64, "提示"

End Sub

Public Sub Freinfo_Ini() '预读

Dim StrTmp3 As String
Dim StrTmp4 As String

On Error GoTo sc2
   
   Open App.path + "\Freconft.ini" For Input As #1
   Do While Not (EOF(1))
        Line Input #1, StrTmp3
        If Left(StrTmp3, 1) = "[" Then
           StrTmp3 = Trim(StrTmp3)
           Select Case StrTmp3
           
                  Case "[Freconft]"
                            Line Input #1, StrTmp3
                            StrTmp3 = Trim(StrTmp3)
                            StrTmp4 = Mid(StrTmp3, 9)
                            main1.Scmtxt1.Text = StrTmp4
                            
                            Line Input #1, StrTmp3
                            StrTmp3 = Trim(StrTmp3)
                            StrTmp4 = Mid(StrTmp3, 9)
                            main1.Text4.Text = StrTmp4
                            
                            
                            Line Input #1, StrTmp3
                            StrTmp3 = Trim(StrTmp3)
                            StrTmp4 = Mid(StrTmp3, 9)
                            main1.Text5.Text = StrTmp4
                            
                             End Select
                                                           
                End If
                
                Loop
                  
        
    Close #1
    
    Call Wrifoau_Ini
    
    Exit Sub
    
sc2:

Close #1

 main1.Scmtxt1.Text = main1.Scmnet1(0).LocalHostName
 main1.Text4.Text = "8819"
 main1.Text5.Text = "8820"
 
Call Wrifoau_Ini

End Sub

Public Sub Wrifoau_Ini() '服务器配置

On Error Resume Next


   Open App.path + "\Serconft.ini" For Output As #1
   
       Print #1, "[Autconft]"
       Print #1, "Serhost=" & main1.Scmtxt1.Text
       Print #1, "Serport=" & main1.Text4.Text
       Print #1, "Cntport=" & main1.Text5.Text
        
   Close #1
   
   'Call SetAttr(App.path & "\Serconft.ini", vbHidden + vbReadOnly)
   
   MsgBox "自动配置成功！", 64, "提示"


End Sub

Public Sub Wrifome_Ini() '服务器配置

On Error Resume Next


   Open App.path + "\Serconft.ini" For Output As #1
   
       Print #1, "[Serconft]"
       Print #1, "Serhost=" & main1.Scmtxt1.Text
       Print #1, "Serport=" & main1.Text4.Text
       Print #1, "Cntport=" & main1.Text5.Text
        
   Close #1
   
   'Call SetAttr(App.path & "\Serconft.ini", vbHidden + vbReadOnly)
   
   MsgBox "配置成功！", 64, "提示"
   
   Unload main1
   main1.Show

End Sub

Public Sub Wrifo_Ini()

On Error Resume Next


   Open App.path + "\Serconft.ini" For Output As #1
   
        
        Print #1, "[Serconft]"
        'Print #1, "Serhost=" & main1.Scmnet1.LocalHostName
        Print #1, "Serhost=" & main1.Text9.Text  '服务器地址
        Print #1, "Serport=" & main1.Text10.Text '服务器端口
        Print #1, "Cntport=" & main1.Text11.Text '连接端口
        Print #1, "ScrPort=" & main1.Text12.Text '远程屏幕
        Print #1, "Xyzport=" & main1.Text13.Text '远程坐标
        Print #1, "Ctrport=" & main1.Text14.Text '远程控制
        Print #1, "Traport=" & main1.Text15.Text '远程传送
        Print #1, "Datport=" & main1.Text16.Text '远程数据
        
   Close #1
   
   'Call SetAttr(App.path & "\Serconft.ini", vbHidden + vbReadOnly)
   
   MsgBox "配置成功！", 64, "提示"

End Sub

Public Sub Wribkp_Ini() '配置备份

On Error Resume Next


   Open App.path + "\Freconft.ini" For Output As #1
   
        
        Print #1, "[Freconft]"
        'Print #1, "Serhost=" & main1.Scmnet1.LocalHostName
        Print #1, "Serhost=" & main1.Scmnet1(0).LocalHostName  '服务器地址
        Print #1, "Serport=" & "8819" '服务器端口
        Print #1, "Cntport=" & "8820" '连接端口
        Print #1, "ScrPort=" & "8821" '远程屏幕
        Print #1, "Xyzport=" & "8822" '远程坐标
        Print #1, "Ctrport=" & "8823" '远程控制
        Print #1, "Traport=" & "8824" '远程传送
        Print #1, "Datport=" & "8825" '远程数据
        
   Close #1
   
   If main1.Check4.Value = 1 Then
   
   Call SetAttr(App.path & "\Freconft.ini", vbHidden + vbNormal)
   
   Else
   
   Call SetAttr(App.path & "\Freconft.ini", vbNormal)
   
   End If
   
   MsgBox "后备配置成功！", 64, "提示"

End Sub