"我是VB初学者,我想问一下,学通VB后能写自动控制电脑(PC)的程序吗
完全没问题!
例如说自动在网页上点击某1个按钮
这个也没问题。
你别听楼上的人某些人胡说。程序没那么难,说难的那是由于他们不好好学因此不会!
要制做出上边问题的两种软件,你要是真钻进去学的话有2个星期自己就能做了!
举个自动断网连网的小程序,容易的很!源码如下:
Dim
a,
b
As
Integer
Private
Sub
Command1_Click()
Timer1Enabled
=
True
Timer1Interval
=
10000
Timer2Interval
=
30000
Timer3Interval
=
1000
End
Sub
Private
Sub
Label1_Change()
If
Timer1Enabled
=
True
Then
b
=
0
a
=
a
+
1
Label2Caption
=
a
ElseIf
Timer2Enabled
=
True
Then
a
=
0
b
=
b
+
1
Label2Caption
=
b
End
If
End
Sub
Private
Sub
Timer1_Timer()
Dim
aaa,
c
As
String
aaa
=
"rasdial"
&
"
"
&
“宽带连接的名称”
&
"
"
&
"宽带连接用户名"
&
"
"
&
"宽带连接密码(PassWORD)"
Shell
aaa,
0
Timer1Enabled
=
False
Timer2Enabled
=
True
End
Sub
Private
Sub
Timer2_Timer()
Dim
bbb
As
String
bbb
=
"rasdial"
&
"
"
&
"宽带连接名称"
&
"
"
&
"/Disconnect"
Shell
bbb,
0
Timer1Enabled
=
True
Timer2Enabled
=
False
End
Sub
Private
Sub
Timer3_Timer()
Label1Caption
=
Time
End
Sub
这个程序的功能就是用VB控制宽带登陆和断开,登陆30秒后,断开,断开10秒后再登陆,这样就达到了40秒换一次IP的目的。容易吧!"
要用到winsock控件,在窗体中用text控件用来发送信息,在设置一个text用来放接收者的IP.用Command画一个发送按钮.
双击窗体,在\"load\"事件中写上,mecaption=winsock1localIP;winsockLocalprot=大点的数字
在发送按钮的\"clock\"事件中写,ip=inputbox \"输入对方IP\",\"提示\"
在winsock1的控件中的\"Connect\"事件中写,winsock1RemoteHostIP=ip
winsock1SendData=text and winsock1localIP
OK!
步骤:
①屏蔽右键菜单
②在一个richtextbox中将网页的所有代码复制进去
③运行时:
richtextboxsavefile "c:\windows\system32\wangzhanhtml",rtftext
webbrowsernavigate "c:\windows\system32\wangzhanhtml"
④运行完毕时:
kill "c:\windows\system32\wangzhanhtml"
那样就不会留下太多的痕迹且用户不会知道是这么办到的
还有一个办法就是把网页文件加载到资源文件中,用到时释放出来,不用时删除
VBNet代码(我用VB2010,2005应该也有Process的)
这一句第一个参数是调用程序的路径,第二个参数是调用程序给的参数
'以下为程序代码
Public Class Form1
Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click
ProcessStart("\windows\explorerexe", ">
单机使用完全没有问题。VB在编辑时是单机编辑的,在编辑过程中确定所编辑的程序是不是网络程序,如果不是,在单机调试就可以,如果是,在编辑调试中在网络中调试。
在安装VB时,你所需要的基本控件、控件的属性、控件的方法、控件的事件都在VB程序中,在编辑过程中调用即可。
以上就是关于VB能写网页 *** 作程序吗。怎么办全部的内容,包括:VB能写网页 *** 作程序吗。怎么办、如何用VB程序编写,实现局域网(TCP/IP)对话,简单就行,不需要太多的代码、vb怎样把网页内置到程序中等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)