» Utilizator
Salut, vizitatorule!

SkullBox este o comunitate formata din programatori si administratori de sisteme sau retele care iti sta la dispozitie cand ai o problema legata de calculatoare. Daca esti un utilizator existent, autentifica-te.

Daca nu te-ai inregistrat inca pe forum, alatura-te noua astfel marind comunitatea si ajutandu-i pe cei care au nevoie de informatii.

Daca te-ai inregistrat dar inca nu ai primit codul de activare, il poti cere aici.



Autentifica-te cu numele de utilizator si parola pentru a putea posta pe forum sau pentru a accesa ariile disponibile doar utilizatorilor inregistrati.
» Promovam
» Parteneri » Statistici
  • 59624 de mesaje.
  • 7135 de topicuri.
  • 987 de utilizatori.
  •  
  • sandaa e ultimul utilizator inregistrat.
[Detalii]

 
Pagini: [1]
Print
Help _IEFormElementGetObjByName [339 afisari]
Bobyk
*


Mesaje: 187
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: 187
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: 6700
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
SkullBox Blogger | LAMP Blogger | Web aggregator

De nu va zice omul intru inima sa "Eu singur si Dumnezeu suntem in lume" nu va avea odihna. - Avva Alonie
03-06-2009, 21:43 Twitt ::
Smash
*****


Mesaje: 1137
OfflineOffline

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: 187
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 ::
Reclama
VIP

Hosting

Mesaje: 25.90
OnlineOnline

WWW
 
   Pe ABCDomenii: 250MB spatiu + 20GB trafic + 5 subdomenii = 0.95 €
 
 
The problem with troubleshooting is that trouble shoots back.
Azi 
Pages: [1]
Print
SkullBox Forum  |  Development  |  AutoIt  |  Topic: Help _IEFormElementGetObjByName
Jump to: