Página 1 de 1

ayuda Mis documenos desde cualquier pc

Publicado: 22 Dic 2010, 17:15
por vladhampir
hola por fin pude crear mi scrip como queria muchas gracias a todos los que se tomaron la molestia de ayudarme

solo pido un ultimo favor por el momento

en el scrip que tengo puse un boton para explorar mis documentos
el detalle esta que obviamente cuando ejecuto en otro pc el scrip por el usuario distinto marca un error
alguien sabe como dejarlo para cualquier pc

de antemano muchas gracias

pd aqui dejo el codigo

Código: Seleccionar todo

#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>





#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("TETO", 1024, 720, 125, 187)

$Button1 = GUICtrlCreateButton("TELCEL", 0, 0, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("MOVISTAR", 80, 0, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("CURP", 160, 0, 75, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("EXCEL", 240, 0, 75, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("WORD", 320, 0, 75, 25, $WS_GROUP)
$Button6 = GUICtrlCreateButton("DOCUMENTOS", 400, 0, 91, 25, $WS_GROUP)
$Button7 = GUICtrlCreateButton("APAGAR", 944, 584, 75, 25, $WS_GROUP)

    $MSISDN = IniRead("RECARGAS.ini", "TELCEL", "MSISDN", "")
	$NIP = IniRead("RECARGAS.ini", "TELCEL", "NIP", "")
	$UserName = IniRead("RECARGAS.ini", "TELCEL", "UserName", "")

	$USUARIO = IniRead("RECARGAS.ini", "MOVISTAR", "USUARIO", "")
	$PASSWORD = IniRead("RECARGAS.ini", "MOVISTAR", "PASSWORD", "")

$user1 = StringReplace($MSISDN,  " ", "-")
$pass1 = StringReplace($MSISDN,  " ", "-")
$usern1 = StringReplace($UserName,  " ", "-")

$user2 = StringReplace($USUARIO,  " ", "-")
$pass2 = StringReplace($PASSWORD,  " ", "-")

$object = ObjCreate("Shell.Explorer.2")
$object_ctrl = GUICtrlCreateObj($object, 10, 50, 900, 660)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg


			Case $Button1

			_IENavigate($object, "https://recargamigoweb.telcel.com/distributor/user/Login.action")
			$oID = _IEGetObjByName($object, "user")
			_IEFormElementSetValue($oID, $user1)
			$oPW = _IEGetObjByName($object, "password")
			_IEFormElementSetValue($oPW, $pass1)
			$oWelt = _IEGetObjByName($object, "username")
			_IEFormElementSetValue($oWelt, $usern1)
			 $oBoton= _IEGetObjByName ($object , "bsave")
			_IEAction($oBoton,"click")
			_IEAction($oBoton,"click")

		Case $Button2

			_IENavigate($object, "http://sre.movistar.com.mx/sre/")
			$oID2 = _IEGetObjByName($object, "user")
			_IEFormElementSetValue($oID2,$user2 )
			$oPW2 = _IEGetObjByName($object, "password")
			_IEFormElementSetValue($oPW2, $pass2)
			$oBoton= _IEGetObjByName ($object , "submit")
			_IEAction($oBoton,"click")


			Case $Button3
         _IENavigate($object, "http://www.gobernacion.gob.mx/CurpPS_HTML/jsp/CurpTDP_20081215.html")

	 Case $Button6
		 $object.navigate("file://c:\users\Vlad\Documents\")


	Case $Button4
		Run("C:\Program Files\Microsoft Office\Office14\excel.exe")

    Case $Button5
		Run("C:\Program Files\Microsoft Office\Office14\WINWORD.exe")



    Case $Button7
		Run("C:\WINDOWS\SYSTEM32\shutdown -s")
Exit
Case $GUI_EVENT_CLOSE



	EndSwitch
WEnd

Re: ayuda Mis documenos desde cualquier pc

Publicado: 22 Dic 2010, 17:50
por BasicOs
Te viene en la ayuda como Macro Reference:
Existen macros para un montón de cosas que facilitan el trabajo:
Sería en este caso sustituir la ruta por:
@MyDocumentsDir es la Ruta a Mis Documentos

Puedes abrirlo con run() y "explorer.exe laruta" o con shellexecute()
Algunos ejemplos de Macros, ver en la ayuda:
Macros for Current User data. Most values are read from HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion
@AppDataDir path to current user's Application Data
@DesktopDir path to current user's Desktop
@MyDocumentsDir path to My Documents target
@FavoritesDir path to current user's Favorites
@ProgramsDir path to current user's Programs (folder on Start Menu)
@StartMenuDir path to current user's Start Menu
@StartupDir current user's Startup folder
@UserProfileDir Path to current user's Profile folder.
Salu22:)
PD: Tu código que está muy bueno como ejemplo de menú de trabajo en que asignas a un botón con código las tareas diarias.
Le puse Code /Code para que se vea mejor.