php 抢票脚本,python抢票脚本逍遥情缘

有些程式语言，例如C，类似以上的声明表示三个字串变量

应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1

'

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

PublicConstVK_TAB=&H9

PublicDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValbScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=vbKeyReturnThen

KeyAscii=0

keybd_eventVK_TAB,0,0,0

EndIf

EndSub->

重要事项

但现在，用shell"rundll32.exeshell32.dllOpenAs_RunDLLX"便能直接调用“打开方式”框

wdFormatPDF 17 PDF 格式用MicrosonJet打开一个文本文件之后，也就独占了对该文件的访问

DimqtApp

DimqtTest

DimqtResultsOpt

SetqtApp=CreateObject("QuickTest.Application")

qtApp.Launch

qtApp.Visible=True

qtApp.Open"C:\QuickTestProfessional\tests\test1\test1.usr",True

SetqtTest=qtApp.Test

qtTest.Settings.Run.OnError="NextStep"

SetqtResultsOpt=CreateObject("QuickTest.RunResultsOptions")

qtResultsOpt.ResultsLocation="C:\QuickTestProfessional\tests\test1"

qtTest.Run

SetqtResultsOpt=Nothing

SetqtTest=Nothing

SetqtApp=Nothing

下创建用户绘制的第一个控件具有索引值0

Const CAPICOM_HASH_ALGORITHM_MD2=1

Const CAPICOM_HASH_ALGORITHM_MD4=2

Const CAPICOM_HASH_ALGORITHM_MD5=3

Const CAPICOM_HASH_ALGORITHM_SHA1=0

Const CAPICOM_HASH_ALGORITHM_SHA_256=4

Const CAPICOM_HASH_ALGORITHM_SHA_384=5

Const CAPICOM_HASH_ALGORITHM_SHA_512=6

Dim HashedData

Set HashedData=CreateObject("CAPICOM.HashedData")

HashedData.Algorithm=CAPICOM_HASH_ALGORITHM_SHA1

HashedData.Hash "Demon"

WScript.Echo HashedData.Value

。