Este es un proyecto que seguro que Microtfos va a sacar, por lo que lo he registrado, por si acaso, y también he hecho un deposito notarial del proyecto. O sea que tiene Copyright. Pero claro como estoy a favor de contrarrestar la negatividad que hay en el mundo, y así cambie un poco, sea más guapo, pues mi granito de arena ( 2cts ) de positividad, es q podais acceder al código y usar el programa respetando los créditos, o sea el Author:Basicos en los mensajes del programa. Gracias por usarlo;). Si algo no es como esperabas no hay garantía, pero si teneis mi actitud positiva al soporte y ayuda para solventarlo.
![:smt020](./images/smilies/020.gif)
COMO USAR
Alguna info del programa en http://www.emesn.com/chaton/
A todas las opciones del programa se accede con las teclas Alt y alguna letra.
El programa no ocupa espacio visual, sino que se ve a la derecha al lado de la hora con un icono. Tampoco ocupa espacio de disco, ni modifica el registro, ni hace nada interno,cabe en disquete, usb-pen, cualquier memoria. Para borrarlo y que desaparezca totalmente con suprimir y a la papelera :¿.
El programa funciona cambiando la manera de ver a los contactos en la lista, en vez de los mensajitos personales por sus direcciones de email(es lo que no cambiara ya q los mensajes si varian) con alt y 0 vuelven a verse las cabeceras del nombre para mostrar que eligio el usuario del messenger.
Para empezar con el programa lo ejecutas y cuando estes conversando con alguien (conversación abierta del messenger), dale a las teclas Alt y M simultaneamente, entonces te sale una fichita para que metas las observaciones de la persona con la que estés hablando, da igual los meses que pasen, cuando presiones Alt y M, te saldran los datos de esta persona que introdujiste en su momento, con lo que podrás decir después de meses, como te va la natación, y esa persona ni se va a acordar de ti, con lo que se quedará asombrada de tu "prodigiosa memoria" o de tu interés.
![:smt016](./images/smilies/016.gif)
Atención si no tienes ninguna conversación del messenger activa, entonces te pregunta a que dirección quieres relacionar la fichita esta, o sea que si pones cualquier cosa, puedes usarlo como recordatorio, por ejemplo pones PAPA, y entonces cuando pongas PAPA en un futuro, te saldra lo que apuntaste ahi de nuevo (como unas notas recordatorios).
Si quiere abrir las entrañas del fichero con Alt y T ves la información en un fichero de texto (cuidado si lo vas a modificar, haz una copia, porque puede no funcionarte)
Para citas con Alt y H
Para salir totalmente del programa es Alt mayuscula y S
Como funciona, una vez que te lo descargas, solo doble click o lo ejecutas, o lo pones en el Inicio para que arranque con el ordenador.
Para poder encriptar
![:smt014](./images/smilies/014.gif)
Alt y 3 nivel alto de encriptacion
Alt y 2 nivel bajo
Alt y 4 nivel de letras normalito
Alt y 5 nivel super profesional de alto nivel cuidado, la contraseña esta dentro de mi programa. Para hacker vaya.
Alt y 6 te deja lo mismo pero tu elijes tu la contraseña que quieras que la tiene q saber l otra parte, jeje.
![:smt008](./images/smilies/008.gif)
Otras opciones:
Te autoarranca unas cuantas paginas privadas tuyas, correos y etc, si le das a alt y p, te pide las contraseñas y las archiva en un ini.
Te guarda la direccion del meetic, y de otras paginas, dentro de la fichita del programita, con lo que puedes reacceder a mas datos de esta persona con alt m y no solo a lo que completas en la fichita. Con Alt y g
COMO INSTALAR
No hay q instalar nada solo copiar el programa donde quieras y el crea un FICHERITO que es chaton.ini, donde guardas los datos, son los 2 ficheros que hay copiar si lo quieres mover, o enviartelo al mail (si te deja), o en el ftp, o usb.
Para bajar el programa el ejecutable http://www.emesn.com:8888/mas/chaton.exe
Probado con el msn messenger 7.5 y 6, deberia funcionar con el Live, si hay dudas o fallos, pues en SOPORTE, porfa y ahi lo resolveremos ;?. Para mejoras concretas o cambios del programa, hay que responder en este mismo. Asi mantenemos la claridad del Topico.
Venga a divertirse, y desconectar el messenger para hablar con los que teneis cerca, en persona, que mola un monton.
Salud,
BasicOs
;Author: Basicos de http://www.autoit.es
;Programa Chaton Registrado Uso Gratuito sin restricciones y sin garantia
Opt("WinWaitDelay", 100)
;Opt("WinTitleMatchMode",4)
;Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode", 0)
#include <GuiConstants>
#include <string>
WinWait("dummyventana", "", 1)
HotKeySet("!m", "showmessage")
HotKeySet("!p", "islallaveautoarranca")
HotKeySet("!t", "showtxt")
HotKeySet("!h", "vercitas")
HotKeySet("+!s", "salir")
HotKeySet("!g", "guardaphpid")
HotKeySet("!3", "leettranslate2") ; alto
HotKeySet("!2", "leettranslate3") ; bajo
HotKeySet("!4", "leettranslate4") ; letras
HotKeySet("!5", "leettranslate5") ; automatico RC4 based fechnac cp
HotKeySet("!6", "leettranslate6") ; menu
HotKeySet("!0", "vertonterias") ;
Global $wdirec, $wperson, $wdatos, $wpdte, $wcita, $wactivew, $wguihand
Global $bucancela, $buok, $buModo, $InDirec, $InPerson, $Eddatos, $EdPdte, $Incita
Global $queini = @ScriptDir & "\chaton.ini", $wsuid, $ddir
If @MDAY <3>showmessage
Func vertonterias() ; alt 0
If WinExists("MSN M") Then WinActivate("MSN M")
WinWaitActive("MSN M", "", 2)
Send("!cccn")
EndFunc ;==>vertonterias
Func salir()
Exit
EndFunc ;==>salir
Func showtxt()
MsgBox(36, "", $ddir & "\system")
Run("notepad.exe " & $queini)
WinWait("chaton.ini", "", 1)
If WinExists("chaton.ini") Then WinActivate("chaton.ini")
WinWaitActive("chaton.ini", "", 2)
Send("^b")
EndFunc ;==>showtxt
Func guiactiva($wactivegui)
;If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000
leeini($wactivegui)
verelgui($wactivegui)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
;case $msg= $bucancela
; exitloop
Case $msg = $buok
grabaini($wactivegui)
ExitLoop
Case $msg = $buModo
WinActivate("¡te vas a enamorar!")
WinWaitActive("¡te vas a enamorar!", "", 1)
ControlSetText("", "", "Edit1", $wsuid)
ControlClick("", "", "ToolbarWindow321")
Case $msg = $GUI_EVENT_CLOSE Or $msg = $bucancela
ExitLoop
Case Else
;;;
EndSelect
WEnd
GUIDelete($wguihand)
EndFunc ;==>guiactiva
Func verelgui($wactivegui)
If $wguihand Then GUIDelete($wguihand)
$wguihand = GUICreate("www.autoit.es de " & $wactivegui, 370, 254, (@DesktopWidth - 344) / 3, (@DesktopHeight - 254) / 3, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$InDirec = GUICtrlCreateInput($wdirec, 50, 10, 310, 20)
$InPerson = GUICtrlCreateInput($wperson, 50, 40, 310, 20)
$Eddatos = GUICtrlCreateEdit($wdatos, 10, 70, 350, 70)
$EdPdte = GUICtrlCreateEdit($wpdte, 10, 150, 350, 70)
$buok = GUICtrlCreateButton("Graba", 50, 220, 80, 30)
$Incita = GUICtrlCreateInput($wcita, 2, 235, 40, 15)
GUICtrlSetState(-1, $GUI_FOCUS)
$wmensajewebok = "No hay Web,a+g"
If $wsuid Then $wmensajewebok = "Ver Web"
$buModo = GUICtrlCreateButton($wmensajewebok, 150, 220, 80, 30)
$bucancela = GUICtrlCreateButton("&Cancela", 250, 220, 80, 30)
$Label_8 = GUICtrlCreateLabel("Direcc", 10, 10, 40, 20)
$Label_9 = GUICtrlCreateLabel("Person", 10, 40, 40, 20)
$Label_10 = GUICtrlCreateLabel("Datos Grls, web oficial:www.autoit.es/chaton", 10, 57, 250, 15)
$Label_11 = GUICtrlCreateLabel("Pendientes", 10, 138, 80, 15)
$Label_12 = GUICtrlCreateLabel("Citas:", 10, 220, 40, 15)
EndFunc ;==>verelgui
Func grabaini($wactivegui)
If GUICtrlRead($InDirec) Then IniWrite("chaton.ini", $wactivegui, "direc", GUICtrlRead($InDirec))
If GUICtrlRead($InPerson) Then IniWrite("chaton.ini", $wactivegui, "person", GUICtrlRead($InPerson))
If GUICtrlRead($Eddatos) Then IniWrite("chaton.ini", $wactivegui, "datos", StringReplace(GUICtrlRead($Eddatos), @CRLF, "¡¡¡"))
If GUICtrlRead($EdPdte) Then IniWrite("chaton.ini", $wactivegui, "pdte", StringReplace(GUICtrlRead($EdPdte), @CRLF, "¡¡¡"))
If GUICtrlRead($Incita) And GUICtrlRead($Incita) <> "00:00" Then IniWrite("chaton.ini", $wactivegui, "cita", GUICtrlRead($Incita))
If $wsuid Then IniWrite("chaton.ini", $wactivegui, "suid", $wsuid)
EndFunc ;==>grabaini
Func leeini($wactivegui)
$wdirec = IniRead("chaton.ini", $wactivegui, "direc", "Escribe aquí")
$wperson = IniRead("chaton.ini", $wactivegui, "person", "")
$wdatos = StringReplace(IniRead("chaton.ini", $wactivegui, "datos", ""), "¡¡¡", @CRLF)
$wpdte = StringReplace(IniRead("chaton.ini", $wactivegui, "pdte", ""), "¡¡¡", @CRLF)
$wcita = IniRead("chaton.ini", $wactivegui, "cita", "00/00")
$wsuid = IniRead("chaton.ini", $wactivegui, "suid", "")
EndFunc ;==>leeini
Func vercitas()
$var = IniReadSectionNames($queini)
$whaycitas = 0
If @error Then
MsgBox(4096, "", "Error ocurrio, posiblemente no existe " & $queini)
Else
For $i = 1 To $var[0]
$quecita = IniRead($queini, $var[$i], "cita", "NotFound")
If $quecita <> "NotFound" And $quecita <> "00/00" Then
$wqdia = StringMid($quecita, 1, StringInStr($quecita, "/") - 1)
$wqmes = StringMid($quecita, StringInStr($quecita, "/") + 1)
If Number($wqmes) < @MON Or (Number($wqmes) = @MON And Number($wqdia) <MDAY>vercitas
Func guardaphpid()
;;WinActivate("¡te vas a enamorar!")
;;winwaitactive("¡te vas a enamorar!","",1)
$whttpenamo = WinGetText("")
$wsuid = StringLeft($whttpenamo, StringInStr($whttpenamo, @LF) - 1)
If WinExists("www.autoit.es de") Then $buModo = GUICtrlCreateButton("Ver WEB", 150, 220, 80, 30)
WinActivate("www.autoit.es de")
MsgBox(1, "Activando Usuario Pagina", "Usuario Activado, no olvide click en el boton guardar")
; HotKeySet("!g")
; send("!g")
; HotKeySet("!g", "guardaphpid")
EndFunc ;==>guardaphpid
;*******************************************
Func leettranslate2()
leettranslate(2)
EndFunc ;==>leettranslate2
Func leettranslate3()
leettranslate(3)
EndFunc ;==>leettranslate3
Func leettranslate4()
leettranslate(4)
EndFunc ;==>leettranslate4
Func leettranslate5()
leettranslate(5)
EndFunc ;==>leettranslate5
Func leettranslate6()
leettranslate(6)
EndFunc ;==>leettranslate6
Func leettranslate($nivel) ;creditos para la version antigua del traductor a -Py7|-|[]/\/- vaya nombrecito
Send("{CTRLDOWN}c{CTRLUP}")
Select
Case $nivel = 5
ClipPut(newEncrypt(ClipGet(), "19071965%35007", 1))
Case $nivel = 6
ClipPut(guiencrypt(ClipGet()))
Case $nivel = 4
ClipPut(advanced4(ClipGet()))
Case Else
If isleet(ClipGet()) Then
ClipPut(StringLower(DetranslateFunc(ClipGet())))
Else
If $nivel = 2 Then
ClipPut(Advanced(StringUpper(ClipGet())))
Else
ClipPut(Advanced(StringLower(ClipGet())))
EndIf
EndIf
EndSelect
Send(StringReplace(ClipGet(), "BASICOS", "BASICOS de Autoit.es"))
EndFunc ;==>leettranslate
Func isleet($qtext)
StringReplace(StringUpper($qtext), "A", "")
If @extended > 0 Then Return 0
StringReplace(StringUpper($qtext), "C", "")
If @extended > 0 Then Return 0
StringReplace(StringUpper($qtext), "Y", "")
If @extended > 0 Then Return 0
StringReplace(StringUpper($qtext), "E", "")
If @extended > 0 Then Return 0
Return 1
EndFunc ;==>isleet
Func Advanced($text) ;NEXt
$lowera = StringReplace($text, "a", "@", 0, 1);Replaces lowercase letters
$lowerb = StringReplace($lowera, "b", "b", 0, 1)
$lowerc = StringReplace($lowerb, "c", "¢", 0, 1)
$lowerd = StringReplace($lowerc, "d", "d", 0, 1)
$lowere = StringReplace($lowerd, "e", "3", 0, 1)
$lowerf = StringReplace($lowere, "f", "f", 0, 1)
$lowerg = StringReplace($lowerf, "g", "g", 0, 1)
$lowerh = StringReplace($lowerg, "h", "h", 0, 1)
$loweri = StringReplace($lowerh, "i", "i", 0, 1)
$lowerj = StringReplace($loweri, "j", "j", 0, 1)
$lowerk = StringReplace($lowerj, "k", "k", 0, 1)
$lowerl = StringReplace($lowerk, "l", "|", 0, 1)
$lowerm = StringReplace($lowerl, "m", "m", 0, 1)
$lowern = StringReplace($lowerm, "n", "n", 0, 1)
$lowero = StringReplace($lowern, "o", "0", 0, 1)
$lowerp = StringReplace($lowero, "p", "p", 0, 1)
$lowerq = StringReplace($lowerp, "q", "q", 0, 1)
$lowerr = StringReplace($lowerq, "r", "r", 0, 1)
$lowers = StringReplace($lowerr, "s", "s", 0, 1)
$lowert = StringReplace($lowers, "t", "†", 0, 1)
$loweru = StringReplace($lowert, "u", "u", 0, 1)
$lowerv = StringReplace($loweru, "v", "v", 0, 1)
$lowerw = StringReplace($lowerv, "w", "w", 0, 1)
$lowerx = StringReplace($lowerw, "x", "x", 0, 1)
$lowery = StringReplace($lowerx, "y", "ÿ", 0, 1)
$lowerz1 = StringReplace($lowery, "z", "z", 0, 1)
$lowerz = StringReplace($lowerz1, "ñ", "7", 0, 1)
;End of LowerCase
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Capital Letters
$higha = StringReplace($lowerz, "A", "4", 0, 1);Replaces capital letters
$highb = StringReplace($higha, "B", "ß", 0, 1)
$highc = StringReplace($highb, "C", "Ç", 0, 1)
$highd = StringReplace($highc, "D", "|)", 0, 1)
$highe = StringReplace($highd, "E", "3", 0, 1)
$highf = StringReplace($highe, "F", "F", 0, 1)
$highg = StringReplace($highf, "G", "G", 0, 1)
$highh = StringReplace($highg, "H", "|-|", 0, 1)
$highi = StringReplace($highh, "I", "1", 0, 1)
$highj = StringReplace($highi, "J", "J", 0, 1)
$highk = StringReplace($highj, "K", "|<0>Advanced
Func DetranslateFunc($text)
$replaceb = StringReplace($text, "ß", "B", 0, 1);replaces strings
$replaceo = StringReplace($replaceb, "()", "O", 0, 1)
$replacea = StringReplace($replaceo, "4", "A", 0, 1)
$replaced = StringReplace($replacea, "|)", "D", 0, 1)
$replaceh = StringReplace($replaced, "|-|", "H", 0, 1)
$replacei = StringReplace($replaceh, "1", "I", 0, 1)
$replacek = StringReplace($replacei, "|<K><", "X", 0, 1)
$replaceu = StringReplace($replacex, "|_|", "U", 0, 1)
$replacey = StringReplace($replaceu, "¥", "Y", 0, 1)
$replace1 = StringReplace($replacey, "3", "E", 0, 1)
$replacee = StringReplace($replace1, "7", "ñ", 0, 1)
;End Capital Letters
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Begin Lowercase
$rplca = StringReplace($replacee, "@", "a", 0, 1)
$rplcc = StringReplace($rplca, "¢", "c", 0, 1)
$rplcl = StringReplace($rplcc, "|", "l", 0, 1)
$rplcy = StringReplace($rplcl, "ÿ", "y", 0, 1)
$rplct = StringReplace($rplcy, "†", "t", 0, 1)
$rplco = StringReplace($rplct, "0", "o", 0, 1)
Return $rplco
EndFunc ;==>DetranslateFunc
;End Capital Letters
Func advanced4($Input)
$C1 = StringSplit("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 .!?,", "")
$C2 = StringSplit("ZYXWVUTSRQPONMLKJIHGFEDCBAzyxwvutsrqponmlkjihgfedcba9876543210 .!?,", "")
$text = StringSplit($Input, "")
Dim $NewText
For $CurrentPos = 1 To $text[0]
$Char = $text[$CurrentPos]
$CharPos = ArraySearch($C1, $Char)
If $CharPos = "X" Then ContinueLoop
$NewChar = $C2[$CharPos]
$NewText = $NewText & $NewChar
Next
Return $NewText
EndFunc ;==>advanced4
Func ArraySearch($Array, $What2Find)
For $X = 1 To $Array[0]
If $Array[$X] == $What2Find Then Return $X
Next
Return "X"
EndFunc ;==>ArraySearch
Func guiencrypt($EditText)
$WinMain = GUICreate('Encrypt chaton http://www.autoit.es', 300, 40)
;$EditText = GuiCtrlCreateEdit('',5,5,380,350)
$InputPass = GUICtrlCreateInput('', 5, 5, 100, 20, 0x21)
; Creates the password box with blured/centered input
$InputLevel = GUICtrlCreateInput(1, 110, 5, 50, 20, 0x2001)
$UpDownLevel = GUICtrlSetLimit(GUICtrlCreateUpdown($InputLevel), 10, 1)
$EncryptButton = GUICtrlCreateButton('EncryptA', 170, 5, 105, 31, $BS_DEFPUSHBUTTON)
GUICtrlCreateLabel('Password', 5, 25)
GUICtrlCreateLabel('Level', 110, 25)
GUISetState()
; Shows window
$wwalreturn = ""
Do
$msg = GUIGetMsg()
If $msg = $EncryptButton Then
GUISetState(@SW_DISABLE, $WinMain) ; Stops you from changing anything
$wwInputPass = GUICtrlRead($InputPass)
$wwInputlevel = GUICtrlRead($InputLevel)
If Not $wwInputPass Then $wwInputPass = "19071965" & "%35007"
$wstring = GUICtrlRead($EditText) ; Saves the editbox for later
; GUICtrlSetData($WinMain,'Please wait while the text is Encrypted/Decrypted.') ; Friendly message
$wwalreturn = newEncrypt($EditText, $wwInputPass, $wwInputlevel)
GUISetState(@SW_ENABLE, $WinMain) ; This turns the window back on
ExitLoop
EndIf
Until $msg = $GUI_EVENT_CLOSE ; Continue loop untill window is closed
GUIDelete($WinMain)
Return $wwalreturn
EndFunc ;==>guiencrypt
Func newEncrypt($string, $wInputPass, $wInputlevel)
If StringLeft($string, 2) = "9Z" Then
$wEditText = _StringEncrypt(0, StringMid($string, 3), $wInputPass, $wInputlevel)
Else
$wEditText = "9Z" & _StringEncrypt(1, $string, $wInputPass, $wInputlevel)
EndIf
Return $wEditText
EndFunc ;==>newEncrypt
;;;`````````````````````++++++++%%%%
;#include "GUIConstants.au3" borrar nuevo config o modificar para config...
Func nuevoconfig()
$window1 = GUICreate("The Reaper's 1337 Translator -Version 1.7", 700, 400)
GUISetBkColor(0x000000)
GUICtrlCreateLabel("The Reaper's 1337 Translator", 225, 10, 300, 300)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlSetFont(-1, 14, 40)
GUICtrlCreateLabel("(|-|@¢ked bÿ †he ßL@Ç|< 0n3)", 265, 40, 300, 300)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlSetFont(-1, 10, 10)
$translate = GUICtrlCreateButton("&Translate", 10, 120, 90, 25)
$detranslate = GUICtrlCreateButton("&Detranslate", 10, 150, 90, 25)
$copy = GUICtrlCreateButton("&Add to Clipboard", 10, 180, 90, 25)
$save = GUICtrlCreateButton("&Save to File", 10, 210, 90, 25)
$instructions = GUICtrlCreateButton("&Instructions", 10, 240, 90, 25)
$clearbox = GUICtrlCreateButton("&Clear Box", 10, 270, 90, 25)
GUICtrlCreateLabel("Reaper Industries- ßringing ÿ0u †3h m0s† 3|i†3 shi† 0n †3h in†erne†.", 160, 340, 400, 400)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlSetFont(-1, 10, 40)
$Input = GUICtrlCreateEdit("Enter the text you wish to translate / detranslate here.", 160, 120, 475, 172, 0x00200000)
$style = BitOR($ES_WANTRETURN, $WS_VSCROLL, $ES_AUTOVSCROLL)
$window2 = GUICreate("TheReaper's 1337 Translator -Instructions", 700, 400)
GUISetBkColor(0x000000)
GUICtrlCreateLabel("Instructions", 285, 10, 300, 300)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlSetFont(-1, 14, 10)
$help = GUICtrlCreateEdit("Bienvenido al traductor Reaper's elite. Puede traducir y descifrar, el texto del alfabeto de Reaper's standard para usted. Escriba en texto normal lo que quiere traducir en la caja de edición, Entonces presione uno de los botones de la izquierda para traducir o descifrar su texto. Presione la el boton Clear para limpiar su texto. Presionando Add to Clipboard button, se lo va a copiar. Si quiere pasar el texto a un .txt Notepad, presion File Save, y elija donde lo quiere guardar. Tambien, yo he añadido teclas rápidas, como Alt + T Para traducr. Alt + D para descrifrar. Alt + s para guardar en un fichero. Alt + C para limpiar texto. Alt + a para añadirlo a Pegar. Alt + i te vuelve a la página. Y Alt + r te saca de la página, Divertete. Bajado de http://www.autoit.es. 100, 100, 500, 200, $style)
GUICtrlSetState($help, $GUI_DISABLE)
$return = GUICtrlCreateButton("&Return to Main Page", 295, 370, 110, 25)
GUISwitch($window1)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $clearbox
GUICtrlSetData($Input, "")
Case $msg = $instructions
GUISetState(@SW_HIDE)
GUISwitch($window2)
GUISetState(@SW_SHOW)
Case $msg = $return
GUISetState(@SW_HIDE)
GUISwitch($window1)
GUISetState(@SW_SHOW)
Case $msg = $translate
$translated = ""; Advanced(GUIRead($input))
GUICtrlSetData($Input, "")
GUICtrlSetData($Input, $translated)
Case $msg = $detranslate
$detranslated = "";DetranslateFunc(GUIRead($input))
GUICtrlSetData($Input, "")
GUICtrlSetData($Input, $detranslated)
Case $msg = $copy
; ClipPut(GUIRead($input))
Case $msg = $save
$writing = "";GUIRead($input)
$file = FileSaveDialog("Where would you like to save the file?", @DesktopDir, "Text files (*.txt)")
FileWrite($file & ".txt", $writing)
EndSelect
WEnd
EndFunc ;==>nuevoconfig
;=============================== nuevas funciones del ie=============
#include <IE>
Func islallaveautoarranca()
$wautoexec = "\system\io.sys"
$macrosautorizadas = "hotmail;meetic;gmail;msn6messenger;msn7messenger"
$lreturn = 0
$var = DriveGetDrive("REMOVABLE")
If Not @error Then
;MsgBox(4096, "", "Found " & $var[0] & " drives")
For $ir = 1 To $var[0]
$ddir = $var[$ir]
If DriveStatus($var[$ir]) = "READY" Then
Run("explorer " & $var[$ir], "", @SW_MINIMIZE)
If FileExists($var[$ir] & "\SecureTraveler.exe") Then
Run($var[$ir] & "\SecureTraveler.exe", $var[$ir] & "\")
Return 0
EndIf
$elfichero = $var[$ir] & $wautoexec
If FileExists($elfichero) Then
$queini = $var[$ir] & "\system\chaton.ini"
$wusbenc = 2.34234* (DriveSpaceTotal($var[$ir]) + DriveGetSerial($var[$ir]) + DriveGetType($var[$ir])) & StringMid(DriveGetFileSystem($var[$ir]), 2, 1)
$wfichero = FileRead($elfichero)
If FileExists($var[$ir] & "\system\config.") Then
ClipPut($wusbenc)
MsgBox(36, "", $wusbenc)
Exit
EndIf
If StringInStr($wfichero, ";") > 0 Then
$aFichero = StringSplit($wfichero, ";")
If $aFichero[1] = $wusbenc And StringLen($wusbenc) > 8 Then ;revisa la clave del fichero
For $i = 2 To $aFichero[0]
If MsgBox(36, "Arrancar programa automaticamente", " ¿Quiere arrancar el " & $aFichero[$i] & "? ", 20) <6>islallaveautoarranca
;islallaveautoarranca("\system\io.sys")
Func arrancamacro($wqmacro)
$wfmacro = $ddir & "\system\claves.ini"
$wusus = IniRead($wfmacro, $wqmacro, "login", "nohay")
$wcontra = IniRead($wfmacro, $wqmacro, "pass", "nohay")
If $wusus = "nohay" Or $wcontra = "nohay" Then
$wusus = InputBox($wqmacro, "Usuario", $wusus)
$wcontra = InputBox($wqmacro, "contraseña", $wcontra)
If InputBox($wqmacro, "Quiere guardar estas claves?", "SI") = "SI" Then
IniWrite($wfmacro, $wqmacro, "login", $wusus)
IniWrite($wfmacro, $wqmacro, "pass", $wcontra)
EndIf
EndIf
listademacros($wqmacro, $wusus, $wcontra)
EndFunc ;==>arrancamacro
;======== funciones nuevas
Func listademacros($lamacro, $wlog, $wpass)
Select
Case $lamacro = "msn6messenger"
;stringleft($lamacro,12)="msnmessenger"
msn6messenger($wlog, $wpass)
Sleep(8)
Case $lamacro = "msn7messenger"
;stringleft($lamacro,12)="msnmessenger"
msn7messenger($wlog, $wpass)
Sleep(8)
Case $lamacro = "hotmail"
; Create a browser window and navigate to hotmail
$oIE = _IECreate()
_IENavigate($oIE, "http://www.hotmail.com")
; get pointers to the login form and username and password fields
$o_form = _IEFormGetObjByName($oIE, "f1")
$o_login = _IEFormElementGetObjByName($o_form, "login")
$o_password = _IEFormElementGetObjByName($o_form, "passwd")
; Set field values and submit the form
_IEFormElementSetValue($o_login, $wlog)
_IEFormElementSetValue($o_password, $wpass)
_IEFormSubmit($o_form)
Case $lamacro = "meetic"
$oIE = _IECreate()
_IENavigate($oIE, "http://es.meetic.com")
; get pointers to the login form and username and password fields
$o_form = _IEFormGetCollection($oIE, 0)
$o_login = _IEFormElementGetObjByName($o_form, "log")
$o_password = _IEFormElementGetObjByName($o_form, "pwd")
; Set field values and submit the form
_IEFormElementSetValue($o_login, $wlog)
_IEFormElementSetValue($o_password, $wpass)
_IEFormSubmit($o_form)
Case $lamacro = "gmail"
$oIE = _IECreate()
_IENavigate($oIE, "http://www.gmail.com")
; get pointers to the login form and username and password fields
If Not WinExists("Gmail - Bandeja") Then
$o_form = _IEFormGetCollection ($oIE, 0)
$o_login = _IEFormElementGetObjByName($o_form, "Email")
$o_password = _IEFormElementGetObjByName($o_form, "Passwd")
; Set field values and submit the form
_IEFormElementSetValue($o_login, $wlog)
_IEFormElementSetValue($o_password, $wpass)
_IEFormSubmit($o_form)
EndIf
EndSelect
EndFunc ;==>listademacros
Func msn6messenger($wlog, $wpass)
Run('C:\Archivos de programa\MSN Messenger\msnmsgr.exe')
WinWait("MSN Messenger", "", 4)
If Not WinActive("MSN Messenger", "") Then WinActivate("MSN Messenger", "")
WinWaitActive("MSN Messenger", "", 4)
MouseClick("left", 128, 263)
WinWait(".NET Messenger Service", "", 4)
If Not WinActive(".NET Messenger Service", "") Then WinActivate(".NET Messenger Service", "")
WinWaitActive(".NET Messenger Service", "", 4)
Send($wlog & "{TAB}" & $wpass & "{ENTER}")
EndFunc ;==>msn6messenger
Func msn7messenger($wlog, $wpass)
Run('C:\Archivos de programa\MSN Messenger\msnmsgr.exe')
Sleep(500)
WinWait("MSN Messenger", "", 4)
If Not WinActive("MSN Messenger", "") Then WinActivate("MSN Messenger", "")
WinWaitActive("MSN Messenger", "", 4)
Sleep(800)
MouseClick("left", 150, 150)
Send("!d")
Send("{BS}")
Sleep(800)
Send($wlog)
Sleep(500)
Send("{TAB}" & $wpass & "!i")
EndFunc ;==>msn7messenger