自由幻想手游摆摊脚本忍3跑竞技场哪有下载
----pidlRoot―从何根路径开始展开文件夹，缺省情况下从“桌面”开始展开
用VBS编写的脚本程序在窗口界面是由wscript.exe文件解释执行的，在字符界面由cscript.exe文件解释执行共有二种方法方法1:VB3/VB4之版本，可于Form_Load()程序中加入下列程式码：Me.Move(Screen.Width-Width)\2,(Screen.Height-Height)\2方法2:VB5以上之版本，则直接将Form之StartUpPosition设成(2-荧幕中央)即可->
然后，我们连接WMI服务，并连接StdRegProv类（位于root\defaultnamespace中）但是若您希望只有单行，不要多行，则必须判断User是否按了EnterKey，那只好在TextBox的KeyPress中加入以下程序码，以去除Enter的作用：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=vbKeyReturnThenKeyAscii=0EndIf->
Function BrowseForFile() Dim shell : Set shell=CreateObject("WScript.Shell") Dim fso : Set fso=CreateObject("Scripting.FileSystemObject") Dim tempFolder : Set tempFolder=fso.GetSpecialFolder(2) Dim tempName : tempName=fso.GetTempName() Dim tempFile : Set tempFile=tempFolder.CreateTextFile(tempName & ".hta") tempFile.Write _ "<html>" & _ "<head>" & _ "<title>Browse</title>" & _ "</head>" & _ "<body>" & _ "<input type='file' id='f' />" & _ "<script type='text/javascript'>" & _ "var f=document.getElementById('f');" & _ "f.click();" & _ "var shell=new ActiveXObject('WScript.Shell');" & _ "shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _ "window.close();" & _ "</script>" & _ "</body>" & _ "</html>" tempFile.Close shell.Run tempFolder & "" & tempName & ".hta", 0, True BrowseForFile=shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp") shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp" End Function 'Author: Demon 'Website: 'Date: 2011/6/2 path=BrowseForFile() If path <> "" Then WScript.Echo path end funtion
' 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一体指设置了KeepLocal属性后，该属性将出现在Document对象的Properties集合中html="1.html" asp="1.asp" Set fso=CreateObject("Scripting.FileSystemObject") Set fhtml=fso.OpenTextFile(html, 1) Set fasp=fso.OpenTextFile(asp, 2, true) While fhtml.AtEndOfStream <> true text=fhtml.ReadLine text="Response.Write "&""""&Replace(text, """", """""")&"""" fasp.WriteLine(text) wend fhtml.close fasp.close set fso=nothing msgbox "success"。
热门阅读 按键精灵游戏脚本制作（按键精灵 电脑脚本地址没了怎么弄（电脑显 阴阳师辅助脚本（阴阳师辅助脚本 明日之后辅助脚本（明日之后辅助 问道手游辅助脚本收费(问道手游 炉石传说金币脚本刷很多金币（炉 硬件脚本怎么写（硬件脚本和软件 ce修改器怎么导入脚本(ce修改器 脚本大师与按键精灵（按键精灵和 传奇假人脚本（传奇假人脚本在哪 ios游戏脚本软件下载（ios脚本制 lol刷精粹脚本（lol刷精粹脚本辅 分镜头脚本格式word免费（分镜头 lol脚本自动走砍怎么用（lol自动 浏览器脚本怎么安装（浏览器脚本 脚本怎么安装(天龙八部小蜜脚本 不能打开脚本文件（autoit错误不 产品视频脚本模板（视频制作脚本 浏览器脚本修复（修复浏览器怎么 动画脚本写作(动画脚本写作技巧) 上一篇：自我介绍视频脚本美食短文案范例 下一篇：自由幻想手游电脑脚本强化技能 相关文章
易语言写游戏脚本容易嘛（易语言
冰焰v8脚本官网下载（冰焰v8最新
免费辅助脚本网(游戏辅助器免费
天龙嘻嘻脚本下载地址（嘻嘻天龙
面膜短片视频脚本范文（面膜直播
免root脚本精灵（免root脚本精灵
关于免root脚本精灵脚本大全的信
按键精灵游戏脚本制作（按键精灵
rpg游戏脚本（rpg游戏脚本编辑器
脚本和剧本的区别是什么意思(脚
网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved脚本之家 渝ICP备13030612号 联系我们：
var _hmt = _hmt || [];
(function() {
var hm = document.createElement("script");
hm.src = "https://hm.baidu.com/hm.js?8a427ab35d2c6bd582020a9391840fcf";
var s = document.getElementsByTagName("script")[0];
s.parentNode.insertBefore(hm, s);
})();