Program do losowania komentarzy na youtube

jackraymund · 3 Września 2011

#include <IE.au3>
#include <file.au3>
#include <array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#Include <Constants.au3>
#Include <GuiEdit.au3>
global $d = 0
global $w = 1
$psps = "test.txt"
#Region ### START Koda GUI section ### Form=
_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
global $i = 0,$k = ""
$Form1 = GUICreate("Konkurs", 825, 445, 192, 124)
$label = guictrlcreatelabel("jackraymund",763,430)
$Button1 = GUICtrlCreateButton("Losuj", 40, 112, 75, 25, $WS_GROUP)
$Edit1 = GUICtrlCreateEdit("", 14, 180, 205, 185, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
$GUIActiveX = GUICtrlCreateObj($oIE, 240, 10, 570, 400)
GUISetState(@SW_SHOW)
GUIRegisterMsg(0x0112 , '_WM_SYS_COMMAND')

_IENavigate($oIE, "http://www.youtube.com/all_comments?v=ogQcpBVCscE")
_IELoadWait($oIE)
sleep(2000)
$asdf = _IEBodyReadHTML($oIE)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	case $Button1
		aha()
		FileDelete(@scriptdir & "\test.txt")
ConsoleWrite(@scriptdir & "\test.txt")
EndSwitch
WEnd



func aha()
	global $i = 0
	while 1
$aha1 = _StringBetween($asdf,"<p>", "</p>")
$file = FileOpen("test.txt", 1)
for $i = 0 to ubound($aha1)-1
	$k &= $aha1[$i] & @CRLF
Next

FileWrite($file, $k)
FileClose($file)
if _GUICtrlEdit_GetLineCount($Edit1) <= 7 Then
los()
Else
Return
EndIf
WEnd
EndFunc

func los()
global $huh[8]
$count = _FileCountLines($psps)
$aha = random(1,$count,1)
$huh[$i] = FileReadLine($psps, $aha)
$huh[$i] = StringReplace($huh[$i],"?","")
if $huh[$i] = "" then Return
_GUICtrlEdit_AppendText($Edit1,$huh[$i] & @CRLF)
ConsoleWrite($huh[$i] & @CRLF)
EndFunc




Func _WM_SYS_COMMAND($hWnd, $iMsg, $wParam, $lParam)
       Switch $hWnd
               Case $Form1
                       Switch $wParam
                                                       Case 0xF060
                                      Exit
                       EndSwitch
       EndSwitch
       EndFunc

linijka 22 odnośnik

funkcja los(główny silnik)

w praktyce

wojtek333314 · 3 Września 2011

fajne , ale cos mi nie losuje

podoba mi się sposob wyswietlania strony youtube, przyda sie pod jakis program bo nie widzialem nigdzie takiego rozwiazania :P

jackraymund · 3 Września 2011

robisz object potem tylko w niego wstawiasz _IECreateEmbedded() i używasz tego do wszystkich funkcji jako handle do obiektu

not hard

Protecto · 11 Września 2011

Tego sposobu wyświetlania strony można użyć w bocie do jakiejś gry przeglądarkowej typu Gladiatus. Widziałem kiedyś coś takiego. Przyda się source.

wjatek · 13 Września 2011

Fajny skrypcik :P Teraz wiem co mam winić za to że konkursu nie wygrałem!! (joke )

viper1924 · 4 Listopada 2011

Jak to działa help jak mam to zrobić ?

Sopelek997 · 4 Listopada 2011

@up

linijka 22 odnośnik

rozumiesz?

viper1924 · 4 Listopada 2011

ja nie umiem posługiwać się całkeim skryptami;/ i nie wiem co to jest tak naprawdę ... .

@fak moje konto YT jest na tym filmiku

Protecto · 4 Listopada 2011

Ten skrypt służy do losowania kilku komentarzy na YT. Był użyty w konkursie MPCForum, który polegał na wysłaniu komentarza pod wskazanym filmem.

viper1924 · 4 Listopada 2011

Połapałem się lecz zamiast nicków wyskakują mi to co oni napisali ...

@down ale np u JJayJokera wystarczy napisać biorę udział i pokazywał jak brał nicki .... losowało mu a mi wyskakuje np treść co dany użytkownik napisał.

Sopelek997 · 4 Listopada 2011

bo tam pisali swoje nicki w wiadomościach. i o tyle prościej

RazoR44 · 3 Grudnia 2011

Da sie wykminić coś co pobierze mi wszystkich użytkowników którzy napisali komentarz pod filmem i zrobi liste? Szczerze to 1 raz widze ten program i liczę na Waszą pomoc z góry dzięki

m4rcin93 · 3 Grudnia 2011

#include <IE.au3>
#include <String.au3>
$oIE = _IECreate("http://www.youtube.com/all_comments?v=jyjuUHNwWD4",1,0,0,1)
_IELoadWait($oIE)
$code = _IEBodyReadHTML($oIE)
$tekst = _StringBetween($code,'href="/user/','"')
For $x = 0 To UBound($tekst) -1
   FileWrite("users.txt",$tekst[$x]&@CRLF)
Next
_IEAction($oIE,"quit")
MsgBox(64,"Info","Koniec!")

globus102 · 25 Grudnia 2011

Możecie powiedzieć jak to zrobić by działało jakiś mały TuT :P Pliska

Protecto · 25 Grudnia 2011

Kombinuj. Ty jesteś swoim najlepszym nauczycielem.

jackraymund · 25 Grudnia 2011

@up2

zainstaluj au3 i tam masz wkleić ten kod i kliknąć F9

globus102 · 25 Grudnia 2011

Ale taki maly problem ten link tzn ten skrypt co jest na gorze on tylko komentarze a np nazwy uzytkowników jak ??

jackraymund · 25 Grudnia 2011

czytaj posty, kolega napisał jak

$tekst = _StringBetween($code,'href="/user/','"')

podmienić

kiope · 12 Stycznia 2012

Chyba skrypt do naprawy... mi nie dziala:

w tabelce wyswietla:

<A class=watch-comment-atlink href="/comment_searchusername=wybierzpolske">@wybierzpolske</A> człowieku, o czym Ty mówisz TUSK I DYMISJA pierwszy się pcha do koryta

prof. Piotr Kruszyński - dyżurny autorytet mafijnej PO, teraz bandyci będą ośmieszać Przybyła i tłumaczyć że jego wina i nic się nie stało. A motłoch czytający GW uwierzy w tą propagandę.

jak dla mnie facet chciał zwrócić na siebie uwagę, nie wierzę, że pułkownik, który od wielu lat ma broń nie umie strzelać (zresztą wszyscy mówią, że facet dużo ćwiczył na strzelnicy, że lubi broń itp.). Jakby chciał się zabić, to by się zabił i strzeliłby sobie w skroń, a jak strzelił sobie w policzek, to nie chciał się zabić-nawet specjaliści mówią, że on nie chciał się zabić, tylko chciał zwrócić na siebie uwagę

Truppist , a powiem że gówno prawda... Tusk chce wprowadzić harmonię w państwie. A P. Kaczyński co , "Jak Donald głosował - Na tak panie Jarosławie - Więc głosujemy na nie.". P. płk Przybył był zwolennikiem PiS 'u , może dlatego strzelił (To było lekko prześmiewcze , ale sami popatrzcie na to co się dzieje , i co robi z krajem Jarek, pamiętacie jak przed wyborami mówił że nie będzie wykorzystywał katastrofy smoleńskiej do kampanii , a pamiętacie może jak potem złamał dane słowo )

-MACHLOJKI

<A class=watch-comment-atlink href="/comment_searchusername=groovybody">@groovybody</A> Uważasz, że Wałęsa był promarksistowski -_-

<A class=watch-comment-atlink href="/comment_searchusername=paquaxin">@paquaxin</A> ale pierdolisz....myslisz ze powiedzieli by w telewizji to co na konferencji powiedzial nie!!!! a tak nie maja wyjscia....

A pozatym

Sopelek997 · 12 Stycznia 2012

bo wyświetla treść komentarza.

ten jest na nicki. Lekko go przerobiłem na własne potrzeby

#include <IE.au3>
#include <file.au3>
#include <array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#Include <Constants.au3>
#Include <GuiEdit.au3>
global $d = 0
global $w = 1
$psps = "test.txt"
#Region ### START Koda GUI section ### Form=
_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
global $i = 0,$k = ""
$Form1 = GUICreate("Konkurs", 825, 445, 192, 124)
$label = guictrlcreatelabel("jackraymund",763,430)
$Button1 = GUICtrlCreateButton("Losuj", 40, 112, 75, 25, $WS_GROUP)
$Edit1 = GUICtrlCreateEdit("", 14, 180, 205, 185, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
$GUIActiveX = GUICtrlCreateObj($oIE, 240, 10, 570, 400)
GUISetState(@SW_SHOW)
GUIRegisterMsg(0x0112 , '_WM_SYS_COMMAND')
_IENavigate($oIE, "link")
	_IELoadWait($oIE)
	sleep(2000)
	$asdf = _IEBodyReadHTML($oIE)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
			Case $GUI_EVENT_CLOSE
					Exit
			case $Button1
					aha()
ConsoleWrite(@scriptdir & "\test.txt")
	EndSwitch
WEnd
	func aha()
			global $i = 0
			while 1
	$aha1 = _StringBetween($asdf,'"/user/', '"')
$file = FileOpen("test.txt", 1)
	for $i = 0 to ubound($aha1)-1
			$k &= $aha1[$i] & @CRLF
	Next
	FileWrite($file, $k)
	FileClose($file)
if _GUICtrlEdit_GetLineCount($Edit1) <= 7 Then
los()
Else
	Return
	EndIf
WEnd
EndFunc
func los()
	global $huh[8]
$count = _FileCountLines($psps)
$aha = random(1,$count,1)
$huh[$i] = FileReadLine($psps, $aha)
$huh[$i] = StringReplace($huh[$i],"?","")
if $huh[$i] = "" then Return
_GUICtrlEdit_AppendText($Edit1,$huh[$i] & @CRLF)
ConsoleWrite($huh[$i] & @CRLF)
EndFunc

Func _WM_SYS_COMMAND($hWnd, $iMsg, $wParam, $lParam)
	Switch $hWnd
			Case $Form1
					Switch $wParam
													Case 0xF060
								   Exit
					EndSwitch
	EndSwitch
	EndFunc

i musisz wpierw wejść na stronę ze wszystkimi komentarzami.

@edit. Nie wiem tylko dlaczego robi po kilka kopii tego samego. Trzeba potem przepuścić przez coś co usunie duplikaty.

jackraymund · 12 Stycznia 2012

@up

też tak miałem , więc powiedziałem tylko aby pousuwać zbędne komentarze i quote

adik_123 · 31 Stycznia 2012

robisz object potem tylko w niego wstawiasz _IECreateEmbedded() i używasz tego do wszystkich funkcji jako handle do obiektu

not hard

a da rade zrobic ten "myk" z uzyciem ff.au3 ? czy zadziala jedynie z ie.au3 ?

Sopelek997 · 31 Stycznia 2012

działa ze wszystkim co jest objektem. Czyli jak utworzysz objekt firefoxa to też da rade

adik_123 · 31 Stycznia 2012

działa ze wszystkim co jest objektem. Czyli jak utworzysz objekt firefoxa to też da rade

A moglbym prosic o jakis przyklad z uzyciem ff.au3 bo nigdzie tego nie widzialem , a samemu to mi bedzie b.ciezko.

treadmil43 · 19 Listopada 2012

Mam pytanie nie umiem programowac wiec nie wiem jak zmienic ilosc wygranych osob??

Zaloguj się

👋 Witaj na MPCForum!

Program do losowania komentarzy na youtube

Rekomendowane odpowiedzi

Zarchiwizowany