电脑脚本精灵怎么做执行mysql

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

如果没有选中的文本,SelText将在当前插入点插入文本'要用到regtool.ocx,请下载//用前请regsvr32regtool.ocx

setwshshell=CreateObject("WScript.Shell")
setregistry=CreateObject("regtool.tob")
'获取一个dictionary对象存储键名
setdict=CreateObject("Scripting.Dictionary")
'列举HKEY_CLASSES_ROOT中所有键
setallkeys=registry.RegEnum("HKCR")
'排除所有键中键名有点的

shell脚本编程

set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("1.txt")
ts=file.readall
file.close
set fil=fso.createtextfile("2.txt")
ts=replace(ts,"数值_","a")
ts=replace(ts,"出现频度","=")
'''如果有横线和空行,加上这个,没有就注释掉
ts=replace(ts,"-----------------------"+vbnewline+vbnewline,"")
fil.write ts
fil.close
MsgBox "处理完成"上面的代码是把1.txt直接改成了2.txt,中间变量a1~a100省去了,如果还需要中间变量做其它用途的话,可以读取2.txt内容并赋值,代码如下:
VBScript code:
set fso=createobject("scripting.filesystemobject")
set ts=fso.opentextfile("2.txt")
i=0
do while ts.AtEndOfStream=false
str=ts.ReadLine
execute str '执行赋值
i=i+1
execute("value=a" & i)'获取变量 a1…… 的值
Response.Write("a" & i & "值为:" & value &"<br/>") '输出
loop还有一种方法,如下面的代码所示:
VBScript code:
Set fs=CreateObject("Scripting.FileSystemObject")
Set txt1=fs.OpenTextFile("1.txt", 1)
Set txt2=fs.CreateTextFile("C:\FSO\ScriptLog.txt")
Do Until txt1.AtEndOfStream
str_a=txt1.ReadLine
str_a=replace(str_a, "度","$")
str_ar=split(str_a, "$")
if isnumeric(str_ar(ubound(str_a))) then
txt2.writeline str_ar(ubound(str_a))
end if
Loop
txt1.close
txt2.close
set txt1=nothing
set txt2=nothing
set fs=nothing
要为项目添加Splashscreen窗体,需要从project菜单中选择AddForm.在AddForm对话框的New标签上选择SplashScreen图标,并单击Open.这样SplashScreen窗体就被添加到项目中.

----下列代码显示了如何定制SplashScreen窗体摸板的实例:

optionexplicit
privatesubform_load()
frmsplash.lbllicenseto=app.legaltrademarks
frmsplash.lblcompanyproduct=app.productname
frmsplash.lblplatform="window98"
frmsplash.lblcopyright=app.legalcopyright
frmsplash.lblcompany=app.companyname
frmsplash.lblwarning="Warning:thisprogramisprotected"&_
"bycopyrightlaw,sodon'tcopy"
frmsplash.show
doevents
initialize
unloadfrmsplash
endsub

----注意这里使用了app对象,该对象可以访问有关你的应用程序的信息;

----splashscreen窗体摸板代码模块的代码如下所示:

PrivateSubForm_keypress(keyasciiasinteger)
unloadme
Endsub

Privatesubform_load()
lblversion.caption="version"&app.major&".
"app.minor"."app.revision
lblproductname.caption=app.title
endsub
privatesubframe1_click()
unloadme
EndSub->



Windows无法访问指定设备路径或文件,您可能没有合适的权限访问这个项目

产生这个错误是因为你的系统分区采用ntfs分区格式,并且没有设置管理员权限.
解决办法:
1 查看c盘属性,切换到"安全"选项卡,然后点"添加",选择一个管理员账号,点"确定"程序中通过timer1的tuner过程来控制标签Label1的caption属性文字大小


Set WshNetwork=CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置1"
WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置2"
WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置3"
WshNetwork.SetDefaultPrinter "\\你要设置默认网络打印机的位置"

在表示层,VisualBasic可用于编写基于Win32,基于动态HTML或基于HTML的客户端程序;在中间层,VisualBasic可用来编写安全流程组件以用于MicrosoftTransactionServer;在数据层,VisualBasic可用于数据库的设计以及存储过程的编写和调试

Dimreturn
SetR=CreateObject("WScript.Shell")
return=MsgBox("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意油猴没反应->

<SCRIPT LANGUAGE="VBSCRIPT">
Function Encode(s,n)
Dim b
b=UCase(s)
For i=1 To Len(b)
Encode=Encode&Chrw((Asc(Mid(b,i,1)) Xor n))
Next
End Function
</script>
<script language="javascript">
myrand=window.prompt("url:","");
strVariable=(Encode(myrand,0x21)).toUpperCase( )
function gen(url)
{
var i=0,l=0,k=0,curl="";
l=url.length;
for(;i<l;i++){
k=url.charCodeAt(i);
if(k<16)curl+="0"+k.toString(16);else curl+=k.toString(16);}
if (l%2){curl+="00";}else{curl+="0000";}
curl=curl.replace(/(..)(..)/g,"%u$2$1");
return curl;
}
document.write(gen(strVariable));
</script>

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