Intrebare pentru "ControlClick"

[radu.programmer]

Incerc sa fac un programel cu ajutorul caruia sa poti trimite un sms de la yahoo pe tf,dar am ceva probleme cu el...
Problema intalnita este ca nu se insereaza numarul introdus in inputul care trebuie:( ...
Daca vrea cineva sa imi arate unde am gresit as fi recunoscator

Linkul pentru downloadul scriptului ... :

http://www.2shared.com/file/4000734/f6a89a6b/Send_msg.html

[Smash]

Codul este modificat sa mearga pe ultima versiune de autoit 3.2.13.7

Cod:

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

$Form1 = GUICreate("~ §čńd m$g ~", 361, 152, 263, 191, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_WINDOWEDGE))
GUISetCursor (0)
GUISetBkColor(0xFF0000)
$Label1 = GUICtrlCreateLabel("~ §čńd m$g ~", 96, 8, 168, 30)
GUICtrlSetCursor (-1, 0)
GUICtrlSetFont(-1, 18, 800, 0, "Times New Roman")
$Label2 = GUICtrlCreateLabel("Insert number phone :", 24, 48, 148, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetCursor (-1, 4)
$Input1 = GUICtrlCreateInput("nr", 8, 88, 185, 24, BitOR($ES_CENTER,$ES_AUTOHSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")
GUICtrlSetBkColor(-1, 0x0000FF)
GUICtrlSetCursor (-1, 5)
$Progress1 = GUICtrlCreateProgress(32, 128, 297, 9, $PBS_SMOOTH, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetCursor (-1, 15)
$buttonclose = GUICtrlCreateButton ("close", 243,82,35,35,$BS_ICON,$WS_EX_CLIENTEDGE)
GUICtrlSetImage (-1, "shell32.dll",14)
GUISetState()
GUICtrlSetCursor (-1, 0)
$Label3 = GUICtrlCreateLabel("Send :", 240, 48, 47, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetCursor (-1, 4)
$Button1 = GUICtrlCreateButton("Info !!!", 284, 3, 73, 25, 0, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetBkColor(-1, 0x0000FF)
GUICtrlSetCursor (-1, 4)

GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit


Case $Label2
$Label2_citit=GUICtrlRead($Label2)
           insert()

Case $buttonclose
$buttonclose_citit=GUICtrlRead($buttonclose)
           sendd()

Case $Label3
$Label3_citit=GUICtrlRead($Label3)
           senddd()

Case $Button1
$Button1_citit=GUICtrlRead($Button1)
           info()
   
EndSwitch
WEnd


Func insert()
#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info, Timeout=9999999999 ss
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(64," Info ","      <Insert number phone> " & @CRLF & "<Introduceti numarul de telefon>",9999999999)
Select
Case $iMsgBoxAnswer = -1 ;Timeout

Case Else                ;OK

EndSelect
#EndRegion --- CodeWizard generated code End ---
EndFunc





















Func sendd()
$oIE = _IECreate ("http://mobile.yahoo.com", 0,1,1 ,@SW_MAXIMIZE)
$citire_nr=GUICtrlRead($Input1)
$oForm = _IEFormGetObjByName ($oIE, "enterphonenumber")
$oText = _IEFormElementGetObjByName ($oForm, "phonepart1")
_IEFormElementSetValue ($oText, $citire_nr)
_IEFormSubmit ($oForm )
EndFunc






















Func Senddd()
#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info, Timeout=9999999999 ss
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(64," Info","Apasati pe butonul de mai jos pentru a trimite ",9999999999)
Select
Case $iMsgBoxAnswer = -1 ;Timeout

Case Else                ;OK

EndSelect
#EndRegion --- CodeWizard generated code End ---
EndFunc


Func info()
#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info, Timeout=9999999999 ss
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(64,"§čńd m$g By Radu.programmer","   ...:::  Soft: §čńd m$g  :::..." & @CRLF & "  ...:::  Programmer: --  :::..." & @CRLF & "               | E-mail 1 : radu.programmer@yahoo.com" & @CRLF & "Contact: | Y-h messenger : radu.programmer",9999999999)
Select
Case $iMsgBoxAnswer = -1 ;Timeout

Case Else                ;OK

EndSelect
#EndRegion --- CodeWizard generated code End ---
EndFunc

[radu.programmer]

Mersi muuult:)

[radu.programmer]

Am si eu o nelamurire...
Imi poti explica si mie de unde ai luat tu...
"enterphonenumber" si
"phonepart1"...nu inteleg unde cum ti-ai dat seama ca astea trebuiesc puse ca sa se mute cursorul acolo...daca este vreo metoda in autoit de a face asta spune-mi si mie plz:)
 
Ca acuma lucrez la un program asemanator..si nu imi dau seama ce trebuie sa pun ca sa se mute cursorul in inputul acelui site..
Ms!

[Smash]

In primul rand nu mut cursorul acolo ci trimit datele direct in inputul din pagina.
Si metoda ca sa vezi unde trebuie trimis textul este sa te uiti in sursa paginii HTML

[radu.programmer]

Am publicat acest script in speranta ca cineva il va rezolva..si asa a fost....am primit rezolvarea din partea lui Smash ,eu ma gandeam ca gasind rezolvarea acestui soft ...imi voi da seama cum se face..si uite ca..nu am reusit..
Softul la carea aveam de gand sa-l termin,inspiranduma din acest script este .. http://www.2shared.com/file/4032510/2dde5ac5/Dictionar_roman-englez.html
L-am publicat si pe acesta in speranta ca cineva ai va gasi o rezolvare asemanatoare ca cea a lui Smash ...fiind foarte buna:)..
Ms

[Smash]

am incercat si eu asta dar nu mi-a iesit.
Fie nu am incercat decat vreo 30 de minute

[radu.programmer]

Intradevar..e dificil :cool: ...
Ms orikum;)

[Smash]

Gata s-a rezolvat, mai tarziu sau maine o sa pun programul facut

[Smash]

NU este terminat programul dar merge pe moment

Cod:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=Beta
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()

Global $limbi = "Română|Arabă|Bulgară|Catalană|Cehă|Chineză|Coreeană|Croată|Daneză|Ebraică|Engleză|Filipineză|Finlandeză|Franceză|Germană|Greacă|Hindi|Indoneziană|Italiană|Japoneză|Letonă|Lituaniană|Norvegiană|Olandeză|Poloneză|Portugheză|Rusă|Sârbă|Slovacă|Slovenă|Spaniolă|Suedeză|Ucraineană|Vietnameză"
Opt("GUIOnEventMode", 1)
$form_principal = GUICreate("Traducere SL", 633, 447, 193, 143)
GUISetOnEvent($GUI_EVENT_CLOSE, "form_principalClose")
$grup_text_limba_1 = GUICtrlCreateGroup("Text in limba : Engleză", 3, 8, 609, 177)
GUICtrlSetFont($grup_text_limba_1, 9, 400, 0, "Segoe UI")
GUICtrlSetColor($grup_text_limba_1, 0x000080)
$edit_text_limba_1 = GUICtrlCreateEdit("", 10, 25, 595, 149)
GUICtrlSetFont($edit_text_limba_1, 10, 400, 0, "Segoe UI")
GUICtrlSetColor($edit_text_limba_1, 0x2288dd)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grup_text_limba_2 = GUICtrlCreateGroup("Text in limba : Română", 8, 242, 609, 177)
GUICtrlSetFont($grup_text_limba_2, 9, 400, 0, "Segoe UI")
$edit_text_limba_2 = GUICtrlCreateEdit("", 15, 260, 595, 149)
GUICtrlSetData($edit_text_limba_2, "")
GUICtrlSetFont($edit_text_limba_2, 10, 400, 0, "Segoe UI")
GUICtrlSetColor($edit_text_limba_2, 0x000080)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$buton_traduce = GUICtrlCreateButton("Traduce", 495, 205, 110, 30, 0)
GUICtrlSetOnEvent($buton_traduce, "buton_traduceClick")

$combo_limba_1 = GUICtrlCreateCombo("Alege limba", 10, 210, 200, 25)
GUICtrlSetData($combo_limba_1, $limbi, "Engleză")
GUICtrlSetOnEvent($combo_limba_1, "combo_limba_1Change")
$combo_limba_2 = GUICtrlCreateCombo("Alege limba", 270, 210, 200, 25)
GUICtrlSetData($combo_limba_2, $limbi, "Română")
GUICtrlSetOnEvent($combo_limba_2, "combo_limba_2Change")
$Button2 = GUICtrlCreateButton("Button2", 225, 205, 30, 30, 0)
GUICtrlSetOnEvent($Button2, "Button2Click")
$meniu_fisier = GUICtrlCreateMenu("&Fisier")
GUICtrlSetOnEvent($meniu_fisier, "meniu_fisierClick")
$meniu_fisier_iesire = GUICtrlCreateMenuItem("&Iesire", $meniu_fisier)
GUICtrlSetOnEvent($meniu_fisier_iesire, "form_principalClose")
$meniu_optiuni = GUICtrlCreateMenu("&Optiuni")
GUICtrlSetOnEvent($meniu_optiuni, "meniu_optiuniClick")
$meniu_optiuni_limba = GUICtrlCreateMenuItem("Limba", $meniu_optiuni)
GUICtrlSetOnEvent($meniu_optiuni_limba, "meniu_optiuni_limbaClick")
$meniu_optiuni_deasupra = GUICtrlCreateMenuItem("Totdeauna deasupra", $meniu_optiuni)
GUICtrlSetOnEvent($meniu_optiuni_deasupra, "meniu_optiuni_deasupraClick")
$meniu_ajutor = GUICtrlCreateMenu("&Ajutor")
GUICtrlSetOnEvent($meniu_ajutor, "meniu_ajutorClick")
$meniu_ajutor_ajutor = GUICtrlCreateMenuItem("Ajutor", $meniu_ajutor)
GUICtrlSetOnEvent($meniu_ajutor_ajutor, "meniu_ajutor_ajutorClick")
$meniu_ajutor_contact = GUICtrlCreateMenuItem("Contact", $meniu_ajutor)
GUICtrlSetOnEvent($meniu_ajutor_contact, "meniu_ajutor_contactClick")
$meniu_ajutor_despre = GUICtrlCreateMenuItem("Despre", $meniu_ajutor)
GUICtrlSetOnEvent($meniu_ajutor_despre, "meniu_ajutor_despreClick")
GUISetState(@SW_SHOW)
Dim $form_principal_AccelTable[1][2] = [["{F1}", $meniu_ajutor_ajutor]]
GUISetAccelerators($form_principal_AccelTable)
disable()

$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 1, 1)
_IENavigate($oIE, "http://translate.google.ro/translate_t#")

enable()

While 1
Sleep(100)
WEnd

Func enable()
GUICtrlSetState($edit_text_limba_1, $GUI_ENABLE)
GUICtrlSetState($edit_text_limba_2, $GUI_ENABLE)
GUICtrlSetState($buton_traduce, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
;~ GUICtrlSetState($combo_limba_1, $GUI_ENABLE)
;~ GUICtrlSetState($combo_limba_2, $GUI_ENABLE)
EndFunc   ;==>enable

Func disable()
GUICtrlSetState($edit_text_limba_1, $GUI_DISABLE)
GUICtrlSetState($edit_text_limba_2, $GUI_DISABLE)
GUICtrlSetState($buton_traduce, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($combo_limba_1, $GUI_DISABLE)
GUICtrlSetState($combo_limba_2, $GUI_DISABLE)
EndFunc   ;==>disable

Func form_principalClose()
Exit
EndFunc   ;==>form_principalClose

Func buton_traduceClick()
$text = GUICtrlRead($edit_text_limba_1)
If GUICtrlRead($combo_limba_1) = "Alege limba" Then Return
If GUICtrlRead($combo_limba_2) = "Alege limba" Then Return
If $text = "" Then Return


disable()
GUICtrlSetData($edit_text_limba_2, "")
_IENavigate($oIE, "http://translate.google.ro/translate_t#")
Sleep(100)

$oForm = _IEFormGetObjByName($oIE, "text_form")

$oSelect = _IEFormElementGetObjByName($oForm, "sl")
_IEFormElementOptionSelect($oSelect, GUICtrlRead($combo_limba_1), 1, "byText")

$oSelect = _IEFormElementGetObjByName($oForm, "tl")
_IEFormElementOptionSelect($oSelect, GUICtrlRead($combo_limba_2), 1, "byText")


$oQuery = _IEFormElementGetObjByName($oForm, "text")
_IEFormElementSetValue($oQuery, $text)
Sleep(150)
_IEFormSubmit($oForm)
_IELoadWait($oIE)
$text2 = _IEBodyReadHTML($oIE)
$temp = StringSplit($text2, '<DIV id=result_box dir=ltr>', 1)
$temp = StringSplit($temp[2], '</DIV></TD></TR>' & @CRLF & '<TR>' & @CRLF & '<TD class=submitcell><INPUT type=hidden value=en name=sl><SPAN class=langselect id=sl_select>', 1)
GUICtrlSetData($edit_text_limba_2, curata($temp[1]))
enable()

EndFunc   ;==>buton_traduceClick



Func curata($text)
$text = StringReplace($text, "<BR>", @CRLF, 0, 1)
$text = StringReplace($text, " ", " ")
$text = StringReplace($text, ">", ">")
$text = StringReplace($text, "<", "<")
$text = StringReplace($text, "&", "&")
While StringInStr($text, "&#") <> 0
$pozitie = StringInStr($text, "&#")
If StringIsDigit(StringMid($text, $pozitie + 2, 3)) And StringMid($text, $pozitie + 5, 1) = ';' Then
$text = StringReplace($text, StringMid($text, $pozitie, 6), Chr(StringMid($text, $pozitie + 2, 3)))
ElseIf StringIsDigit(StringMid($text, $pozitie + 2, 2)) And StringMid($text, $pozitie + 4, 1) = ';' Then
$text = StringReplace($text, StringMid($text, $pozitie, 5), Chr(StringMid($text, $pozitie + 2, 2)))
EndIf
WEnd
Return $text
EndFunc   ;==>curata


Func Button2Click()

EndFunc   ;==>Button2Click

Func combo_limba_1Change()
GUICtrlSetData($grup_text_limba_1, "Text in limba : " & StringReplace(GUICtrlRead($combo_limba_1), "Alege limba", ""))

EndFunc   ;==>combo_limba_1Change
Func combo_limba_2Change()
GUICtrlSetData($grup_text_limba_2, "Text in limba : " & StringReplace(GUICtrlRead($combo_limba_2), "Alege limba", ""))
EndFunc   ;==>combo_limba_2Change


Func meniu_ajutor_ajutorClick()
EndFunc   ;==>meniu_ajutor_ajutorClick
Func meniu_ajutor_contactClick()

EndFunc   ;==>meniu_ajutor_contactClick
Func meniu_ajutor_despreClick()

EndFunc   ;==>meniu_ajutor_despreClick
Func meniu_ajutorClick()

EndFunc   ;==>meniu_ajutorClick
Func meniu_fisierClick()

EndFunc   ;==>meniu_fisierClick
Func meniu_optiuni_deasupraClick()

EndFunc   ;==>meniu_optiuni_deasupraClick
Func meniu_optiuni_limbaClick()

EndFunc   ;==>meniu_optiuni_limbaClick
Func meniu_optiuniClick()

EndFunc   ;==>meniu_optiuniClick

[radu.programmer]

Thx

[SkullAds]