太阳雨

this is file extension the commandshould generatefiletype=".vbs"connect to WScript.Shell registry accessset WSHShell = CreateObject("WScript.Shell")read in the name of vbs-sectionprg = ReadReg("HK

Function LoseHtml(ContentStr) Dim ClsTempLoseStr,regEx ClsTempLoseStr = Cstr(ContentStr) Set regEx = New RegExp regEx.Pattern = "]*>" regEx.IgnoreCase = True regEx.Global = True ClsTempLoseStr = regEx

Dim WSHNetwork Set WSHNetwork = WScript.CreateObject( "WScript.Network" )Function TryMapDrive(intDrive, strShare)     Dim strDrive     strDrive = Chr(intDrive + 64) & ":"     On Error Resume Next