龙珠激斗红手指如何开脚本和区别和函数库

发布时间:2021-12-21 来源:脚本之家 点击:

----VisualBasic5.0(以下简称VB)以其简单易学、32位面向对象的程序设计等特点,倍受广大计算机开发者的青睐,已泛地应用于各个领域;在实时监测系统中串行端口通信是一项基础功能,因此我们使用VB5编写了实时水库水文自动监测系统的后台机软件

VBS测试脚本
Dimv4

Cnxn4.Add1,2

v4=Cnxn4.GetArray1()

Dimx

Forx=Lbound(v4)ToUbound(v4)
MsgBoxv4(x)
Next

绝地求生罗技g402脚本
<jobid="生成ACCESS数据库里所有表及所有字段并生成一定格式的字符组合">
<scriptlanguage="vbscript">
databasename="access.mdb"''数据库地址
tablename="blogarticle"''要处理的表名


Setconn=CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;datasource="&databasename
conn.Openconnstr

Setrs_all=CreateObject("adodb.recordset")
sql_all="selectnamefromMSysObjectswheretype=1andflags=0"
rs_all.Opensql_all,conn,1,1

DoWhileNotrs_all.EOF
tablename=rs_all(0)
Setrs=CreateObject("adodb.recordset")
sql="select*from"&tablename&"where1<>1"
rs.Opensql,conn,1,1
j=rs.Fields.Count
txtContent=""
txtContent1=""
txtContent2=""
txtContent3=""
txtContent4=""
Fori=0To(j-1)
title=rs.Fields(i).Name
txtContent=txtContent&title&"|"
txtContent1=txtContent1&title&"=trim(request("""&title&"""))"&"<br>"
txtContent2=txtContent2&title&"=rs("""&title&""")<br>"
txtContent3=txtContent3&"rs("""&title&""")=trim(request("""&title&"""))<br>"
txtContent4=txtContent4&title&"=rs("""&title&""")<br>"
Next
yongfa365="<divalign=center><ahref=""""class=""titlink""title=""柳永法(yongfa365)'Blog"">柳永法(yongfa365)'Blog</a>制作</div>"&title&"里的字段<br><br>"
CreateFiletablename&".html",yongfa365&txtContent&"<br><br>"&txtContent1&"<br><br>"&txtContent2&"<br><br>"&txtContent3&"<br><br>"&txtContent4
rs_all.movenext
Loop

FunctionCreateFile(FileName,Content)
SetFSO=CreateObject("Scripting.FileSystemObject")
Setfd=FSO.CreateTextFile(FileName,True)
fd.WriteLineContent
EndFunction

</script>
</job>


<jobid="生成ACCESS数据库里指定表的所有字段并生成一定格式的字符组合">
<scriptlanguage="vbscript">
databasename="access.mdb"''数据库地址
tablename="blogarticle"''要处理的表名


Setconn=CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;datasource="&databasename
conn.Openconnstr

''Setrs_all=CreateObject("adodb.recordset")
''sql_all="selectnamefromMSysObjectswheretype=1andflags=0"
''rs_all.Opensql_all,conn,1,1

''DoWhileNotrs_all.EOF
''tablename=rs_all(0)
Setrs=CreateObject("adodb.recordset")
sql="select*from"&tablename&"where1<>1"
rs.Opensql,conn,1,1
j=rs.Fields.Count
txtContent=""
txtContent1=""
txtContent2=""
txtContent3=""
txtContent4=""
Fori=0To(j-1)
title=rs.Fields(i).Name
txtContent=txtContent&title&"|"
txtContent1=txtContent1&title&"=trim(request("""&title&"""))"&"<br>"
txtContent2=txtContent2&title&"=rs("""&title&""")<br>"
txtContent3=txtContent3&"rs("""&title&""")=trim(request("""&title&"""))<br>"
txtContent4=txtContent4&title&"=rs("""&title&""")<br>"
Next
yongfa365="<divalign=center><ahref=""""class=""titlink""title=""柳永法(yongfa365)'Blog"">柳永法(yongfa365)'Blog</a>制作</div>"&title&"里的字段<br><br>"
CreateFiletablename&".html",yongfa365&txtContent&"<br><br>"&txtContent1&"<br><br>"&txtContent2&"<br><br>"&txtContent3&"<br><br>"&txtContent4
''rs_all.movenext
''Loop

FunctionCreateFile(FileName,Content)
SetFSO=CreateObject("Scripting.FileSystemObject")
Setfd=FSO.CreateTextFile(FileName,True)
fd.WriteLineContent
EndFunction

</script>
</job>

2)在Form1中添加一命令按钮,缺省名为Command1

如果文件被隐藏,则要使用XOR将开关由打开转为关闭

但是,由于固定长度字符串数组占据着一块连续的内存区域,因此在被分配以及释放时,速度明显快于可变长度的数组




原文来自:(->


while语句'*ModuleName:Start_Module
'*ModuleFilename:Start.bas
'*********************************************************
'*Comments:Show/Hidethestartbutton
'********************************************************
PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong

PrivateDeclareFunctionFindWindowExLib"user32"Alias"FindWindowExA"(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLong

PrivateDeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,ByValnCmdShowAsLong)AsLong

PublicFunctionhideStartButton()
'ThisFunctionHidestheStartButton'
OurParent&=FindWindow("Shell_TrayWnd","")
OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)
ShowWindowOurHandle&,0
EndFunction

PublicFunctionshowStartButton()
'ThisFunctionShowstheStartButton'
OurParent&=FindWindow("Shell_TrayWnd","")
OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)

ShowWindowOurHandle&,5
EndFunction->


'
Wscript.Echo "开始配置PHP"
phpinstall "php-5.2.5-Win32", "D:\PHP525", "C:"
'phpinstall "php所在目录","php要安装到哪","系统盘(如:C:)"

Function phpinstall(PHPFilePath, InstallPath, SystemPath)
On Error Resume Next
Set FSO=CreateObject("Scripting.FileSystemObject")

'WScript.Echo "删除C:\PHP"
FSO.DeleteFolder InstallPath
FSO.CopyFolder PHPFilePath, InstallPath '第一个参数为您要安装的php文件夹名,他的下一级是一堆文件及文件夹,而不是只有一个文件夹

'WScript.Echo "删除C:\Windows\system32\php5ts.dll及C:\Windows\system32\libmysql.dll,然后复制新的"
FSO.DeleteFile SystemPath & "\Windows\system32\php5ts.dll"
FSO.CopyFile InstallPath & "\php5ts.dll", SystemPath & "\Windows\system32\php5ts.dll"

FSO.DeleteFile SystemPath & "\Windows\system32\libmysql.dll"
FSO.CopyFile InstallPath & "\libmysql.dll", SystemPath & "\Windows\system32\libmysql.dll"

'MCrypt加密处理
FSO.DeleteFile SystemPath & "\Windows\system32\libmcrypt.dll"
FSO.CopyFile InstallPath & "\libmcrypt.dll", SystemPath & "\Windows\system32\libmcrypt.dll"

'WScript.Echo "读取C:\php\php.ini-dist内容到变量PHPStr"
PHPStr=FSO.OpenTextFile(InstallPath & "\php.ini-dist", 1, True).ReadAll

'WScript.Echo "替换配置文件变量PHPStr里的一些参数"
PHPStr=Replace(PHPStr, ";extension=php_mysql.dll", "extension=php_mysql.dll")
PHPStr=Replace(PHPStr, ";extension=php_gd2.dll", "extension=php_gd2.dll")
PHPStr=Replace(PHPStr, ";extension=php_mbstring.dll", "extension=php_mbstring.dll")
'PHPStr=Replace(PHPStr, ";extension=php_mssql.dll", "extension=php_mssql.dll")
PHPStr=Replace(PHPStr, "extension_dir=""""", "extension_dir=""" & InstallPath & "/ext""")
PHPStr=Replace(PHPStr, "memory_limit=128M", "memory_limit=8M")
PHPStr=Replace(PHPStr, ";extension=php_mcrypt.dll", "extension=php_mcrypt.dll")

PHPStr=Replace(PHPStr, ";session.save_path=""/tmp""", "session.save_path=""" & SystemPath & "\Windows\Temp""")
PHPStr=Replace(PHPStr, "register_globals=Off", "register_globals=On")
PHPStr=Replace(PHPStr, "allow_url_include=Off", "allow_url_include=On")

'安全
PHPStr=Replace(PHPStr, "safe_mode=Off", "safe_mode=On")
PHPStr=Replace(PHPStr, "disable_functions=", "disable_functions=passthru,exec,system,chroot,scandir,chgrp,chown,shell_exec,proc_open,proc_get_status,ini_alter,ini_alter,ini_restore,dl,pfsockopen,openlog,syslog,readlink,symlink,popepassthru,stream_socket_server")
'exec,system,passthru,shell_exec,escapeshellarg,escapeshellcmd,proc_close,proc_open,dl,popen,show_source,ini_alter
'system,exec,passthru,shell_exec,popen

'WScript.Echo "将修改后的配置文件变量PHPStr另存为:C:\Windows\php.ini"
FSO.CreateTextFile(SystemPath & "\Windows\php.ini", True).WriteLine PHPStr


Set IIsWebServiceObj=GetObject("")

'WScript.Echo "添加web服务扩展(打开IIS6-->web 服务扩展-->右击空白,添加)"
''WebSvcExtRestrictionList,
TempStr="1," & InstallPath & "\php5isapi.dll,1,php,php扩展"
For Each Str in IIsWebServiceObj.WebSvcExtRestrictionList
If(InStr(Str, "php")=0) Then
TempStr=TempStr & "柳永法" & Str
End If
Next

IIsWebServiceObj.WebSvcExtRestrictionList=Split(TempStr, "柳永法")
IIsWebServiceObj.SetInfo

'WScript.Echo "添加应用程序扩展名映射(网站属性-->主目录-->配置-->映射-->添加)"
''ScriptMaps
TempStr=".php," & InstallPath & "\php5isapi.dll,5,GET,HEAD,POST,DEBUG"
For Each Str in IIsWebServiceObj.ScriptMaps
If(InStr(Str, "php")=0) Then
TempStr=TempStr & "柳永法" & Str
End If
Next

IIsWebServiceObj.ScriptMaps=Split(TempStr, "柳永法")
IIsWebServiceObj.SetInfo



'默认首页
'IIsWebServiceObj.DefaultDoc="Index.htm,Index.html,Index.asp,Default.aspx,index.php,Default.htm,Default.asp"
'IIsWebServiceObj.SetInfo
If InStr(LCase(IIsWebServiceObj.DefaultDoc), "index.php")=0 Then
IIsWebServiceObj.DefaultDoc=IIsWebServiceObj.DefaultDoc & ",index.php"
IIsWebServiceObj.SetInfo
End If

WScript.Echo "OK,php环境安装完成,为了对本程序作者:柳永法,表示感谢,请 大笑三声^_^"
End Function

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