rwinfo.bas

来自「星子行主机控制系统用于主机管理,方便远程操作,通信等功能.更 方便用于局域网」· BAS 代码 · 共 134 行

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 + "\Sernet.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 "[Sernet]"
                            Line Input #1, StrTmp1
                            StrTmp1 = Trim(StrTmp1)
                            StrTmp2 = Mid(StrTmp1, 9)
                            Update.Dhtt = StrTmp2
                            
                            Line Input #1, StrTmp1
                            StrTmp1 = Trim(StrTmp1)
                            StrTmp2 = Mid(StrTmp1, 9)
                            Update.Filna = StrTmp2
                            
                 End Select
                                                           
                End If
                
                Loop
                  
        
    Close #1
    
   Call Update.Upst_st
    
    Exit Sub
    
sc:

Close #1

Call Wrifo_Ini

End Sub

Public Sub Wrifo_Ini()

On Error Resume Next

   Open App.Path + "\Sernet.ini" For Output As #1
   
        Print #1, "[Sernet]"
        'Print #1, "Version=" & "1.0"  '版本号
        Print #1, "Serdown=" & "Http://Scmxp.vicp.net" ' 服务器地址
        Print #1, "Filnaty=" & "Scm.exe" '文件类型名
        
        
   Close #1
   

   'Call SetAttr(App.path & "\Serconft.ini", vbHidden + vbReadOnly)

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Sub Reinfo_Ver()

Dim StrTmp1 As String
Dim StrTmp2 As String

On Error GoTo sc
   
   Open App.Path + "\Update.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 "[Version]"
                            Line Input #1, StrTmp1
                            StrTmp1 = Trim(StrTmp1)
                            StrTmp2 = Mid(StrTmp1, 9)
                            Update.Vers = StrTmp2
                            
                            Line Input #1, StrTmp1
                            StrTmp1 = Trim(StrTmp1)
                            StrTmp2 = Mid(StrTmp1, 9)
                            Update.Uhtt = StrTmp2
                            
                 End Select
                                                           
                End If
                
                Loop
                  
        
    Close #1
    
   Call Inser_in
    
    Exit Sub
    
sc:

Close #1

'Call Wrifo_Ini

End Sub

Public Sub Wrifo_Ver()

On Error Resume Next

   Open App.Path + "\Update.ini" For Output As #1
   
        Print #1, "[Version]"
        Print #1, "Version=" & Update.Vrs  '版本号
        Print #1, "Serhttp=" & "Http://Scmxp.vicp.net/Cns/Update/Scm.ini" '服务器版本地址
       
   Close #1
   
End Sub