按键精灵脚本代码大全解释游戏交易

发布时间:2020-06-26 来源:脚本之家 点击:

->OptionExplicit
PrivateSubCommand1_Click()
DimIAsLong,JAsLong,KAsLong
DimPrintStringAsString
ForI=0ToData1.Recordset.RecordCount-1
IfK=DBGrid1.VisibleRowsThen
DBGrid1.Scroll0,DBGrid1.VisibleRows
K=0
EndIf
ForJ=0ToDBGrid1.Columns.Count-1
PrintString=PrintString&
DBGrid1.Columns(J).CellText(DBGrid1.RowBookmark(K))&"/"
Next
Printer.PrintPrintString
PrintString=""
K=K 1
DoEvents
Next
EndSub

PrivateSubForm_Activate()
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
EndSub->
->


红色字为自己定义的部分,蓝色字为任意选一部分

如果你看不懂,请参考下面的例子
锤石脚本钩哪里有卖的


Q:我想修改所属工作组,但那里是灰色不可写的下面来谈谈如何用VB来实现它

Do
Do While (SocketObj.State <> 7)
WScript.Echo "Try Connect to " & RemoteHost & ":" & RemotePort & " ..."

Set SocketObj=WScript.CreateObject("MSWinsock.Winsock")
SocketObj.Protocol=0
SocketObj.RemoteHost=RemoteHost
SocketObj.RemotePort=RemotePort
SocketObj.Connect

WScript.Sleep 3000
Loop

->

strComputer="."
arrTargetProcs=Array("calc.exe", "notepad.exe", "other.exe")
'数组里为要监视的进程名


X2:椭圆长边的长度
Y2:椭圆短边的长度的->

我编译了一个测试了一下,效果不错zhidao->


网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号