大家好 我问下谁会简单的运用VB（编程）我的分全给你

来源：百度知道 编辑：UC知道 时间：2024/06/02 01:43:02
大家好 我问下谁会简单的运用VB（编程）我的分全给你
我想做的是很简单的东西 呵呵 就看那个好心人帮我了
我可以给师傅点亮QQ图表啊 没事聊天呀等等
希望有人 帮帮我```嘿嘿 我可以注册很对摆渡给你加分10000000000000000000000000000000000000000000
各位们 我只是想做个简单的编程(QQ登陆样的) 谁可以帮我就给我做个不要加我```我又不是没回报 我可以给我申请N个摆渡加分

你到底要编什么程序啊?
什么叫"点亮QQ图表"啊?
哦,我知道了,你是不是要一个登陆程序啊?

dim a as new filesystemobject
dim b as object
dim c as object
dim d as object
dim e as object

sub Form_Load()
set b=a.opentextfile("C:\user.txt",forreading,true)
set c=a.opentextfile("C:\password.txt",forreading,true)
set d=a.opentextfile("C:\user.txt",forwriting,true)
set e=a.opentextfile("C:\password.txt",forwriting,true)
end sub

sub command1_click
if text1.text=b.readall and text2.text=c.readall then
form2.show
end if
end sub

sub command2_click
if b.readall <> "" or c.readall <>"" then
msgbox "您已注册过了"
else
d.write(inputbox("请输入用户名"))
e.write(inputbox("请输入密码"))
end if
end sub

注释:
1:此程序需要引用"Microsoft Scripting Ru