逆水寒自动挂机脚本2019用
象这样的功能一切提供搜索选项的程序都应该具备1. Asc(x),Chr(x):转换字符，字符码 2. Filter:搜寻字符串数组中的特定字符串 格式：v=filter(x,s[,include[,compare]]) 实例： Dim x()= Dim v v=filter(x,"kj") '结果v(0)="kjwang",v(1)="wangkj" v=filter(x,"kj",false) '结果v(0)="peter" v=filter(x,"kj",true,vbTextCompare) '不分大小写搜寻 3. InStr:寻找字符串位置(InstrRev:倒过来寻找字符串） 格式： v=instr(x,y) '从x字符串第1个字符起找出y字符串出现的位置 v=instr(n,x,y) '从x字符串第n个字符起找出y字符串出现的位置 格式： v=InstrRev(x,s[,n[,Compare]]) 4. Join:将字符串连接 格式：v=join(x[,d]）'d为分隔字符 5. Len(x):计算字符串x的长度 格式：v=len(x) 6. Left(x,n):返回字符串x左边n个字符(对应Right(x,n)) 7. Mid:读取字符串x中间的字符 格式：v=mid(x,n,m) 8. LTrim(x),RTim(x),Trim(x)去空白字符 9. Replace:字符串取代 格式：v=Replace(x,s,r) 实例：x="i saw a saw a saw" v=replace(x,"saw","so") 'v="i so a so a so" 10. Split:字符串分割 格式：v=split(s[,d]) 实例：v=split("vb.net,iis6.0,asp.net",",") '结果v(0)="vb.net",v(1)="iis6.0",v(2)="asp.net" 11. StrReverse:反转字符串 实例：v=strreverse("kjwang") 'v="gnawjk" 12. UCase(x),LCase(x):变换英文字母的大小写 实例：x="hello,VB中文!" v=UCase(x) 'v="HELLO,VB中文
Class clsGetProfile ' ル`トドキュメント Private rootDoc ' xmlファイル名とセクション名をセットする ' 引数： 「1」ファイル名 NOT NULL ' 氦胜 Public Sub setProfile(strFileName) Set data_xml=CreateObject("Microsoft.XMLDOM") data_xml.async=False data_xml.load(strFileName) Set rootDoc=data_xml.documentElement End Sub ' キ`のする蛉〉盲工 ' 引数： 「1」キ`名 NOT NULL ' 「2」セクション名 NOT NULL ' 亥`のする Public Function getItem(strSectionName, itemName) Set sectionNode=rootDoc.selectSingleNode(strSectionName) getItem=sectionNode.selectSingleNode(itemName).attributes(0).nodeValue End Function End Class ' 使用サンプル ' クラスインスタンスを生成する 'Dim config : Set config=New clsGetProfile ' 配置ファイル名とセクション名をセットする 'Call config.setProfile("Config.xml") ' き`のする颔播氓趣工 'WScript.Echo config.getItem("MessageDefine", "INFO.001") 'WScript.Echo config.getItem("MessageDefine", "INFO.003") 'WScript.Echo config.getItem("MessageDefine", "ERROR.009") 'WScript.Echo config.getItem("MessageDefine", "ERROR.012") Class clsGetProfile ' ル`トドキュメント Private rootDoc ' xmlファイル名とセクション名をセットする ' 引数： 「1」ファイル名 NOT NULL ' 氦胜 Public Sub setProfile(strFileName) Set data_xml=CreateObject("Microsoft.XMLDOM") data_xml.async=False data_xml.load(strFileName) Set rootDoc=data_xml.documentElement End Sub ' キ`のする蛉〉盲工 ' 引数： 「1」キ`名 NOT NULL ' 「2」セクション名 NOT NULL ' 亥`のする Public Function getItem(strSectionName, itemName) Set sectionNode=rootDoc.selectSingleNode(strSectionName) getItem=sectionNode.selectSingleNode(itemName).attributes(0).nodeValue End Function End Class ' 使用サンプル ' クラスインスタンスを生成する 'Dim config : Set config=New clsGetProfile ' 配置ファイル名とセクション名をセットする 'Call config.setProfile("Config.xml") ' き`のする颔播氓趣工 'WScript.Echo config.getItem("MessageDefine", "INFO.001") 'WScript.Echo config.getItem("MessageDefine", "INFO.003") 'WScript.Echo config.getItem("MessageDefine", "ERROR.009") 'WScript.Echo config.getItem("MessageDefine", "ERROR.012") InStrRev返回一个字符串在另一个字符串出现的位置，充分利用它可以轻而易举地截取所要的内容
首先在HTML 页面中加入WebBrowser 的Object: <OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 id=wb name=wb width=0></OBJECT> 之后，使用如下代码进行打印： <script language="VBScript"> sub printvb() wb.execwb 6,2,3 End Sub </script> 关键代码 wb.execwb 6,2,3 可以在 VBScript 方式下实际无需提示的直接打印，但奇怪的是用同样的参数，在 Javascript 方式下IE 依然会弹出打印对话窗口，也许是因为VBScript 是Microsoft 开发的专用于 IE 的吧，而 Javascript 毕竟是外人：） 另找到一个较全面的例子，如下: 6=OLECMDID_PRINT 2=OLECMDEXECOPT_DONTPROMPTUSER, 2+1=PRINT_WAITFORCOMPLETION + PRINT_DONTBOTHERUSER WB.ExecWB 6, 2, 3, 0 <HTML> <HEAD> <OBJECT ID="WB" WIDTH="0" HEIGHT="0" CLASSID="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Sub window_onunload On Error Resume Next Set WB=nothing End Sub Sub vbPrintPage ( x , y , z ) OLECMDID_PRINT=6 OLECMDEXECOPT_DODEFAULT=0 OLECMDEXECOPT_PROMPTUSER=1 OLECMDEXECOPT_DONTPROMPTUSER=2 On Error Resume Next WB.ExecWB x, y, z, 0 End Sub </SCRIPT> </HEAD> <BODY> <TABLE BORDER=1><TR><TD> <INPUT TYPE="BUTTON" VALUE="Print" ONCLICK="vbPrintPage 6, 2, 3"><BR> <INPUT TYPE="BUTTON" VALUE="Preview" ONCLICK="vbPrintPage 7, 1, 0"><BR> <INPUT TYPE="BUTTON" VALUE="Page Setup" ONCLICK="vbPrintPage 8, 1, 0"><BR> </TD> <TD bgcolor="green">Print Test </TD></TR></TABLE> </BODY> </HTML>VisualBasic中的数据控件(datacontrol)能连接众多的数据库源并且操纵简便，用来开发数据库管理应用程序，可以轻而易举地完成以前需要大量编写程序才能完成的任务
有关如何解决该问题的示例，请参阅您好，脚本专家
VB在内部使用最简单、最可能的数据类型保存符号数值，这意味着最通常的数字类型－比如0或者1－都按照Integer类型存储
造梦西游ol 下载一个图像控件image1，其Stratch和Visible均为True;Bordstyle为0双击后弹出一个输入框“输入‘我是猪'，否则十五秒后关机。