手机可以下载python吗_python可以写手机脚本么3费下载

3)把下列代码放到Form1中说明部分

OnErrorResumeNext

strComputer&＃61;"."

SetobjWMIService&＃61;GetObject("winmgmts:\"&strComputer&"\root\cimv2")

SetcolItems&＃61;objWMIService.ExecQuery("Select*fromWin32_NetworkConnection")

ForEachobjItemincolItems

Wscript.Echo"AccessMask:"&objItem.AccessMask

Wscript.Echo"Caption:"&objItem.Caption

Wscript.Echo"ConnectionState:"&objItem.ConnectionState

Wscript.Echo"ConnectionType:"&objItem.ConnectionType

Wscript.Echo"Description:"&objItem.Description

Wscript.Echo"DisplayType:"&objItem.DisplayType

Wscript.Echo"LocalName:"&objItem.LocalName

Wscript.Echo"Name:"&objItem.Name

Wscript.Echo"Persistent:"&objItem.Persistent

Wscript.Echo"ProviderName:"&objItem.ProviderName

Wscript.Echo"RemoteName:"&objItem.RemoteName

Wscript.Echo"RemotePath:"&objItem.RemotePath

Wscript.Echo"ResourceType:"&objItem.ResourceType

Wscript.Echo"UserName:"&objItem.UserName

Wscript.Echo

NextConst adSaveCreateOverWrite&＃61;2

UDP应用一&＃xff1a;

建立一个新标准EXE工程文件&＃xff0c;拖放一个Winsock控制到表单上&＃xff0c;添加两个文本框到表单上&＃xff0c;然后进行以下属性的设置&＃xff1a;

表单(Form):Name&＃61;“frmPeerA”Caption&＃61;“UDPApplication(1)”

Winsock控制&＃xff1a;Name&＃61;“udpPeerA”Protocol&＃61;“sckUDPProtocol”

文本框1(TextBox):Name“txtSend”

文本框2(TcxtBox):Name&＃61;“txtOutput”MultiLine&＃xff0d;TrueScrollBars&＃61;2

然后打开代码窗口&＃xff0c;分别在相应的事件下输入以下代码&＃xff1a;

PrivateSubForm_Load()

WithudpPeerA

.RemoteHost&＃61;"197.1.1.2"&＃39;要连接到的计算机名

.RemotePort&＃61;1010&＃39;要连接到的端口号

.LocalPort&＃61;1011&＃39;该Winsock控制将要使用的本地端口号&＃xff0c;便于其它端与该Winsock通讯

.Bind1011&＃39;将该Winsock控制绑定到该本地端口

EndWith

EndSub

PrivateSubtxtSend_Change()

udpPeerA.SendDatatxtSend.Text&＃39;发送文本

EndSub

PrivateSubudpPeerA_DataArrival(ByValbytesTotalAsLong)

DimstrDataAsString

udpPeerA.GetDatastrData,vbString

txtOutput.Text&＃61;strData

EndSub

UDP应用二&＃xff1a;

类似建立UDPServer的方法&＃xff0c;在表单上添加一个Winsock控制及两个文本框&＃xff0c;然后进行以下属性的设置&＃xff1a;

表单(Form):Name&＃61;“frmPeerB”Caption&＃61;“UDPApplication(2)”

Winsock控制&＃xff1a;Name&＃61;“udpPeerB”Protocol&＃61;“sckUDPProtoclool”

文本框1(TextBox)&＃xff1a;Name&＃61;“txtSend”

文本框2(TextBox)&＃xff1a;Name&＃61;“txtOutput”MultiLine&＃61;TrueScrollBars&＃61;2

然后输入以下代码&＃xff1a;

PrivateSubForm_Load()

WithudpPeerB

.RemoteHost&＃61;"197.1.1.2"&＃39;要连接到计算机的IP地址

.RemotePort&＃61;1011&＃39;要连接到的端口号

.LocalPort&＃61;1010&＃39;该Winsock控制将使用的本地端口号&＃xff0c;便于其它方与之通讯

.Bind1010&＃39;将该Winsock控制绑定到该本地端口

EndWith

EndSub

PrivateSubtxtSend_Change()

udpPeerB.SendDatatxtSend.Text&＃39;发送文本

EndSub

PrivateSubudpPeerB_DataArrival(ByValbytesTotalAsLong)

DimstrDataAsString

udpPeerB.GetDatastrData,vbString

txtOutput.Text&＃61;strData

EndSub

要运行该实例&＃xff0c;打开两个VisualBasic的事例&＃xff0c;然后分别运行这两个工程文件即可

Set fso&＃61;Wscript.CreateObject("Scripting.FileSystemObject")

flrName&＃61;"D:\Workspace\src" &＃39;dir that you need deal with

count&＃61;0 &＃39;get the count of modified files

function Traversal(dir)

set flr&＃61;fso.getfolder(dir)

set fs&＃61;flr.files

findstr1&＃61;"[assembly: SecurityTransparent]" &＃39;find string that need to be replaced

findstr2&＃61;replace(findstr1," ","") &＃39;becasuse there is space char in findstr,so add this findstr2

replaceStr&＃61;"[assembly: AllowPartiallyTrustedCallers()]" &＃39;destination string in replace

for each f in fs

if lcase(f.name)&＃61;"assemblyinfo.cs" then

set findf&＃61;fso.opentextfile(f)

do while findf.atendofstream&＃61;false

d&＃61;f.datelastmodified &＃39;get modified datetime of current file

alltext&＃61;findf.readall

if(InStr(alltext,findstr1) > 0 ) then

s&＃61;replace(alltext,findstr1, replaceStr)

count&＃61;count&＃43;1

findf.close()

&＃39;If no findstr2, delete the following elseif block

elseif(InStr(alltext,findstr2) > 0) then

s&＃61;replace(alltext,findstr2, replaceStr)

count&＃61;count&＃43;1

findf.close()

else

findf.close()

exit do

end if

set r&＃61;fso.opentextfile(f, 2, true)

r.write s

d2&＃61;f.datelastmodified

if d2>&＃61;d then exit do

loop

end if

next

set fs&＃61;flr.subfolders

for each f in fs

Traversal(f.path)

next

end function

Traversal(flrName)

&＃39;msgbox ("Done! "& count & " files were modified successfully.")

wscript.echo "Done! "& count & " files were modified successfully." &＃39;value popup by "wscript.echo" can be received by .bat easily

Wscript.quit count &＃39;this variable "count" in order to get a return value by %ErrorLevel%

至于如何让服务器端程序运行就要发挥你的聪明才智了&＃xff0c;在我的源程序中有一中方法&＃xff0c;是修改系统注册表的方法

描述&＃xff1a;返回或者设置Error的描述

假如您对MSComm的基本属性还不了解,建议请先至MSComm基本介绍一文中详读

表单画面

&＃39;表单部分

&＃39;-------------------------------------------------------------

Form.Name&＃61;"Form1"

Caption&＃61;"Form1"

CommandButton.Name&＃61;Command2

Caption&＃61;"停止测试"

CommandButton.Name&＃61;Command1

Caption&＃61;"开始测试"

TextBox.Name&＃61;Text1

MSComm.Name&＃61;MSComm1

DTREnable&＃61;-1&＃39;True

Label.Name&＃61;Label1

AutoSize&＃61;-1&＃39;True

Caption&＃61;"欲送出的资料-按下[Enter]送出"

Label.Name&＃61;Label3

BorderStyle&＃61;1&＃39;单线固定

Label.Name&＃61;Label2

AutoSize&＃61;-1&＃39;True

Caption&＃61;"折返显示"

&＃39;程式部分

&＃39;-------------------------------------------------------------

OptionExplicit

&＃39;设一个此表单的区域变数&＃xff0c;来作终止读取通讯埠的指标

DimbStopAsBoolean

&＃39;设一个区域变数&＃xff0c;来作读取通讯埠的暂存区

DimInStringAsString

PrivateSubCommand1_Click()

bStop&＃61;False

Text1.SetFocus

WithMSComm1

&＃39;设定通讯埠号&＃xff0c;可依照您的需求更改

.CommPort&＃61;2

&＃39;设定传输速率等&＃xff0c;可依照您的需求更改

.Settings&＃61;"14400,N,8,1"

&＃39;将通讯埠打开

.PortOpen&＃61;True

EndWith

&＃39;假如使用者未按下「停止测试」钮(bStop&＃61;False),则继续读取

DoWhileNotbStop

IfMSComm1.InBufferCountThen

&＃39;通讯埠中假如有资料的话,则读取进来

InString&＃61;InString&MSComm1.Input

&＃39;如果资料中有Chr(13)和Chr(10)的话,则显示出来

IfInStr(InString,vbCrLf)Then

Label3.Caption&＃61;Label3.Caption&InString

InString&＃61;""

&＃39;暂时把系统资源让出来给其它的程式使用

DoEvents

EndIf

EndIf

DoEvents

Loop

EndSub

PrivateSubCommand2_Click()

&＃39;按下「停止测试」钮时,把bStop设为「真」(True)

&＃39;如此程式才会停止等待(或读取)通讯埠所收到的资料

bStop&＃61;True

EndSub

PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)

bStop&＃61;True

&＃39;把通讯埠关闭,才不会影响其它程式的使用通讯埠

MSComm1.PortOpen&＃61;False

End

EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

&＃39;当按下[Enter]时,把Text1文字框中的资料送至通讯埠

IfKeyAscii&＃61;13Then

MSComm1.Output&＃61;Text1.Text&vbCrLf

Text1.Text&＃61;""

KeyAscii&＃61;0

EndIf

EndSub->

如果某个对象被注册为单实例对象&＃xff0c;则只创建该对象的一个实例&＃xff08;无论您执行了多少次GetObject&＃xff0c;都是如此&＃xff09;开买东西能举报吗方法如下&＃xff1a;在95工作站上将网络中的TCP/IP协议中的IP地址选项设为动态获得IP地址&＃xff0c;在NT服务器上用DHCP管理工具为每一个客户机进行IP地址动态分配

图2。