Red de conocimiento informático - Problemas con los teléfonos móviles - Programación de diálogo Shell

Programación de diálogo Shell

Continuar en caso de error

set FSO = createobject(" scripting . file system object ")

set ws = createobject(" wscript . shell ")

ruta de verificación , regrese

Si return=0 y el archivo FSO .existe (ruta y amplificador " yglzj.exe "), entonces

elimine la ruta del archivo. " yglzj.ini "

wscript.sleep 2000

ruta y amplificador de ws.exec "yglzj.exe "

Otros

locateforfile ()

Terminará si...

Función privada checkpath(ruta, retorno)

return=0

Si FSO . El archivo (" c:\windows\path.txt ") existe, entonces

Set stm = CreateObject("Adodb. Stream")

stm. tipo = 2

stm.mode = 3

stm.charset ="Unicode "

stm. abrir

STM . loadfromfile " c:\ windows \ ruta . txt "

ruta = stm.readtext

stm. Cerrar

si ruta=null entonces

return=1

otro

ruta=ruta

si . ..terminará

Otro

return=1

Si... terminará

Finalizar función

Función privada BrowseForFile()

set objDialog = CreateObject(" cuentas de usuario.CommonDialog")

objDialog. Filtro ="yglzj.ini|*.ini "

objDialog. DirInicial="C:\ "

objDialog. Banderas = & amph 8000& H4+& H8

intResult = objDialog. ShowOpen

BrowseForFile = objDialog. Nombre de archivo

Función final

Función privada localizarforfile()

establecer archivo = FSO . = FSO . crear archivo de texto(" c:\ windows \ ruta . txt ", 2, verdadero)

ruta=StrReverse(archivo)

s=instr(1, ruta, " \ ")

ruta=StrReverse(mid(ruta, s, len(ruta)- s + 1))

Ruta.Escribir ruta

Ruta . Cerrar

archivo fso.deletefile

wscript.sleep 2000

ruta ws.exec y amp" yglzj.exe "

Finalizar función