» Utilizator
LAMP
» Parteneri» De citit» Recomandari» Taskuri securitate » Statistici
  • 65486 de mesaje.
  • 7732 de topicuri.
  • 1230 de utilizatori.
  •  
  • Joistestisket8 e ultimul utilizator inregistrat.
[Detalii]

 

| |
Pagini: [1]
Print

Help _IEFormElementGetObjByName [471 afisari]

Bobyk
*


Mesaje: 242
OfflineOffline
Salut...
Am si eu o rugaminte..
Vreau sa fac un mik soft cu ajutorul caruia sa vad direct cand il accesez ce melodie ruleaza in direct la kiss fm...aruncati o privire prin el si o sa va dati seama ce incerc sa fac...
Multumesc!


Quote
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#NoTrayIcon

$Form1 = GUICreate("Kiss Fm`", 200, 41, 340, 262)
GUISetBkColor(0x000080)
$Input1 = GUICtrlCreateInput("", 8, 8, 185, 24, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)

$oIE =    _IECreate ("http://www.kissfm.ro/", 0,0,1 ,@SW_SHOW)   
$citire_nr=GUICtrlRead($Input1)
$oForm = _IEFormGetObjByName ($oIE, "live-song")
$oText = _IEFormElementGetObjByName ($oForm, "live-song")
_IEFormElementSetValue ($oText, $citire_nr)
_IEFormSubmit ($oForm )

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

   EndSwitch
WEnd
Logged
Să nu te opreşti niciodată din a-ţi pune întrebări, curiozitatea stă la baza existenţei.
-Albert Einstein-
02-06-2009, 21:57 Twitt ::
Bobyk
*


Mesaje: 242
OfflineOffline
se pare ca nimeni nu se pricepe ?....
Nu ma puteti ajuta si pe mn Straight face?Sad
Logged
Să nu te opreşti niciodată din a-ţi pune întrebări, curiozitatea stă la baza existenţei.
-Albert Einstein-
03-06-2009, 21:29 Twitt ::
Agkelos
*


Mesaje: 7196
OfflineOffline

WWW
Daca nu spui de la inceput ce vrei sa faci si unde te impotmolesti nu o sa te ajute nimeni pentru ca nimeni nu sta sa isi dea cu presupusul si sa ghiceasca care ar fi problema care o ai tu in cap Smile
Logged
» Ce putem face cu sed?
» Cache pentru imagini si texte
» Formular de contact
03-06-2009, 21:43 Twitt ::
Smash
*


Mesaje: 1173
OnlineOnline

WWW
Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#NoTrayIcon

$Form1 = GUICreate("Kiss Fm`", 200, 41, 340, 262)
GUISetBkColor(0x000080)
$Input1 = GUICtrlCreateInput("", 8, 8, 185, 24, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_READONLY), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)

While 1
Sleep(1000)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
getsong()
WEnd

Func getsong()
Local $cale_fisier = @ScriptDir & "\temp.txt"
InetGet("http://www.kissfm.ro/", $cale_fisier)
$text = FileRead($cale_fisier)
$array = StringRegExp($text, '<p class="live-song">(.*?)</p>', 2)
GUICtrlSetData($Input1, $array[1])
EndFunc   ;==>getsong
Logged


03-06-2009, 21:45 Twitt ::
Bobyk
*


Mesaje: 242
OfflineOffline
msmsms:*
Logged
Să nu te opreşti niciodată din a-ţi pune întrebări, curiozitatea stă la baza existenţei.
-Albert Einstein-
05-06-2009, 11:02 Twitt ::
Pagini: [1]
Print
SkullBox Forum  |  Development  |  AutoIt  |  Topic: Help _IEFormElementGetObjByName