如何用VB制作邮箱登陆的小程序
发布网友
发布时间:2022-05-06 20:41
我来回答
共1个回答
热心网友
时间:2023-09-16 18:50
我现在没上q
,所以帖上代码
..或者你留个邮箱把
qq
现在要去装
,我在别人家
不太好意思
去动人家的电脑
Private
Sub
Command1_Click()
Inet1.Execute
"POST",
Text1,
"userid="
&
Text2
&
"&password="
&
Text3
End
Sub
Private
Sub
Inet1_StateChanged(ByVal
State
As
Integer)
If
State
=
12
Then
str1
=
Inet1.GetChunk(0)
If
str1
=
"登陆成功"
Then
Form2.Show
ElseIf
str1
=
"登陆失败"
Then
End
If
End
If
End
Sub