DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
| 1 2 3 4 5 6 7 8 9 10 | WshShell.Run "http://forum.fok.nl/topic/1515204/2/25" 'Open pagina WshShell.AppActivate ("DIG / DEV / Wie weet wat van scripts?") 'Selecteer pagina WScript.Sleep 2000 'Wacht 2 seconden WshShell.SendKeys "^{F12}" 'stuurt CTRL+F12 toets WshShell.AppActivate ("DIG / DEV / Wie weet wat van scripts? ") 'Selecteer pagina WScript.Sleep 2000 WshShell.SendKeys "%P" 'ALT-P WshShell.SendKeys "[img]http://screen.myphotos.cc/17/ss102.jpg[/img]" 'post url eventueel 'WshShell.SendKeys "%S" 'ALT-S |
Gadwin zonder bevestiging(voorbeeld uit) instellen en toets CTRL-F12
{PRTSC} = PrintScreen toets
[ Bericht 1% gewijzigd door HiDiHo op 21-08-2010 04:33:34 ]
Aan mijn uitspraken kunnen geen rechten ontleend worden
Uitspraken uit het verleden geven geen garantie voor de toekomst
Uitspraken uit het verleden geven geen garantie voor de toekomst
-
[ Bericht 100% gewijzigd door HiDiHo op 21-08-2010 04:19:22 ]
[ Bericht 100% gewijzigd door HiDiHo op 21-08-2010 04:19:22 ]
Aan mijn uitspraken kunnen geen rechten ontleend worden
Uitspraken uit het verleden geven geen garantie voor de toekomst
Uitspraken uit het verleden geven geen garantie voor de toekomst
Aan mijn uitspraken kunnen geen rechten ontleend worden
Uitspraken uit het verleden geven geen garantie voor de toekomst
Uitspraken uit het verleden geven geen garantie voor de toekomst
Volgens de OP moet er alleen een screenshot worden gemaakt als er een bepaalde tekst op de pagina staat.quote:Op zaterdag 21 augustus 2010 04:05 schreef HiDiHo het volgende:
[ code verwijderd ]
Opslaan als printscreen.vbs
Gadwin zonder bevestiging(voorbeeld uit) instellen en toets CTRL-F12
{PRTSC} = PrintScreen toets
Dan moet er nog een stukje code bijquote:Op zaterdag 21 augustus 2010 07:53 schreef Light het volgende:
[..]
Volgens de OP moet er alleen een screenshot worden gemaakt als er een bepaalde tekst op de pagina staat.
Bestand ophalen met xmlhttp en zoeken op tekst, aanwezig print maken
Aan mijn uitspraken kunnen geen rechten ontleend worden
Uitspraken uit het verleden geven geen garantie voor de toekomst
Uitspraken uit het verleden geven geen garantie voor de toekomst
En dan kom je weer bij de eerste reactie van LXIV, namelijk de vraag waarom je een printscreen wilt maken. Bestand ophalen met xmlhttp is ook leuk, je kunt er niet vanuit gaan dat de xml-parser het bestand slikt. En als je het bestand ophaalt en de gezochte tekst hebt gevonden, kun je ook het bestand als tekst opslaan.quote:
[..]
Dan moet er nog een stukje code bij
Bestand ophalen met xmlhttp en zoeken op tekst, aanwezig print maken
De vraag waarom maakt mij niet zoveel uit. Blijkbaar wilt hij 1 gegenereert plaatje ipv een lap tekst met codes.quote:Op zaterdag 21 augustus 2010 17:28 schreef Light het volgende:
[..]
En dan kom je weer bij de eerste reactie van LXIV, namelijk de vraag waarom je een printscreen wilt maken. Bestand ophalen met xmlhttp is ook leuk, je kunt er niet vanuit gaan dat de xml-parser het bestand slikt. En als je het bestand ophaalt en de gezochte tekst hebt gevonden, kun je ook het bestand als tekst opslaan.
En xml parser pakt alle broncode dus je kunt altijd zoeken naar text.
Daarnaast kun je met het script ook gewoon ctrl-f uitvoeren en zoeken naar tekst op de pagina
Aan mijn uitspraken kunnen geen rechten ontleend worden
Uitspraken uit het verleden geven geen garantie voor de toekomst
Uitspraken uit het verleden geven geen garantie voor de toekomst
Done!quote:Op zaterdag 21 augustus 2010 04:05 schreef HiDiHo het volgende:
[ code verwijderd ]
Opslaan als printscreen.vbs
Gadwin zonder bevestiging(voorbeeld uit) instellen en toets CTRL-F12
{PRTSC} = PrintScreen toets
Alleen, bij mij maakt ie de printscreen niet, maar opent slechts het url, hoort dat zo?
geen gojim, geen dhimmi
Nee, als je Gadwin Printscreen op CTRL-F12 zet, maakt ie een printscreenquote:Op zaterdag 21 augustus 2010 19:57 schreef gojim het volgende:
[..]
Done!
Alleen, bij mij maakt ie de printscreen niet, maar opent slechts het url, hoort dat zo?
en natuurlijk bij Gadwin instellen bron programma venster en opslaan als bestand
[ Bericht 4% gewijzigd door HiDiHo op 21-08-2010 20:18:24 ]
Aan mijn uitspraken kunnen geen rechten ontleend worden
Uitspraken uit het verleden geven geen garantie voor de toekomst
Uitspraken uit het verleden geven geen garantie voor de toekomst
Hij slaat het automatisch opquote:Op zaterdag 21 augustus 2010 20:12 schreef HiDiHo het volgende:
[..]
Nee, als je Gadwin Printscreen op CTRL-F12 zet, maakt ie een printscreen
en natuurlijk bij Gadwin instellen bron programma venster en opslaan als bestand
Alleen, niet bij de gewenste zoekfunctie, ken je toevallig die commando's ook geven?
geen gojim, geen dhimmi
bij de gewenste zoekfunctie? wat bedoel je daarmee? ctrl-f ?quote:Op maandag 23 augustus 2010 22:32 schreef gojim het volgende:
[..]
Hij slaat het automatisch op
Alleen, niet bij de gewenste zoekfunctie, ken je toevallig die commando's ook geven?
ik post later nog wel een stukje code voor je om de bron op te halen en te controleren op jou tekst
Aan mijn uitspraken kunnen geen rechten ontleend worden
Uitspraken uit het verleden geven geen garantie voor de toekomst
Uitspraken uit het verleden geven geen garantie voor de toekomst
Klopt, ctrl + f en dan de commando voor prinstcreen if found else loopquote:Op maandag 23 augustus 2010 22:39 schreef HiDiHo het volgende:
[..]
bij de gewenste zoekfunctie? wat bedoel je daarmee? ctrl-f ?
ik post later nog wel een stukje code voor je om de bron op te halen en te controleren op jou tekst
geen gojim, geen dhimmi
Ik zal er zo even naar kijken, ik moet ergens nog wel een stukje code hebben liggen.quote:Op dinsdag 24 augustus 2010 17:26 schreef gojim het volgende:
[..]
Klopt, ctrl + f en dan de commando voor prinstcreen if found else loop
Aan mijn uitspraken kunnen geen rechten ontleend worden
Uitspraken uit het verleden geven geen garantie voor de toekomst
Uitspraken uit het verleden geven geen garantie voor de toekomst
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | Dim ZoekTekst,PaginaUrl,PaginaTitel,xmlhttp,resultStatus,resultContent ZoekTekst = "gevonden?" PaginaUrl = "http://forum.fok.nl/topic/1515204/2/25" 'Op te halen pagina PaginaTitel = "DIG / DEV / Wie weet wat van scripts?" 'Nodig om in te zoomen op pagina in IE Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.SetTimeouts 5000, 5000, 5000, 5000 xmlhttp.Open "GET", PaginaUrl, false xmlhttp.send() resultStatus = xmlhttp.status resultContent = xmlhttp.responseText If InStr(resultContent,ZoekTekst) > 1 Then PrintScreen() Else ' Tekst niet gevonden, doe niets End If Set xmlhttp = nothing 'on error goto 0 Function PrintScreen() Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "http://forum.fok.nl/topic/1515204/2/25" 'Open pagina WshShell.AppActivate (PaginaTitel) 'Selecteer pagina WScript.Sleep 10000 'Wacht 10 seconden WshShell.SendKeys "^f" WshShell.SendKeys ZoekTekst WshShell.SendKeys "^{F12}" 'stuurt CTRL+F12 toets ' WshShell.SendKeys "{PRTSC}" 'stuurt Prt Sc toets WshShell.AppActivate (PaginaTitel) 'Selecteer pagina ' WshShell.SendKeys "%P" 'ALT-P ' WScript.Sleep 5000 ' WshShell.SendKeys "[img]http://screen.mypohotos.cc/17/ss102.jpg[/img]" 'post url eventueel ' WshShell.SendKeys "%S" 'ALT-S Set WshShell = nothing End Function |
Dit scriptje haalt de pagina op
- controleert op tekst in broncode
- opent de pagina in IE
- zoekt in IE naar de tekst
- maakt een printscreen
natuurlijk kun je alles aanpassen en maken zoals je wilt, heb je vragen hoor ik het wel
[ Bericht 0% gewijzigd door HiDiHo op 29-08-2010 01:44:58 ]
Aan mijn uitspraken kunnen geen rechten ontleend worden
Uitspraken uit het verleden geven geen garantie voor de toekomst
Uitspraken uit het verleden geven geen garantie voor de toekomst
Hij doet het, omgwtfbbqquote:Op zondag 29 augustus 2010 01:39 schreef HiDiHo het volgende:
[ code verwijderd ]
Dit is een werkend voorbeeld
Dit scriptje haalt de pagina op
- controleert op tekst in broncode
- opent de pagina in IE
- zoekt in IE naar de tekst
- maakt een printscreen
natuurlijk kun je alles aanpassen en maken zoals je wilt, heb je vragen hoor ik het wel
Alleen, de printscreen knop functied oet het niet, best raar PRTSC is de commando toch?
Ik stel dat bij Gadwin in, maar geen reactie. Bij ctrl+f12 doet ie het weer wel en wordt een screenshot opgeslagen op het bureau.
Trouwens, hoe maak je hiervan een loop functie?
geen gojim, geen dhimmi
Ja, printscreentoets werkt op een of andere manier niet, daarom had ik hem al op CTRL-12
(en dan kun je de normale funtie van printscreen ook behouden)
loop doe je bv met
Maar pas op dat je niet teveel http opvragen doet, fok stopt er dan mee bijvoorbeeld
[ Bericht 24% gewijzigd door HiDiHo op 01-09-2010 09:11:04 ]
(en dan kun je de normale funtie van printscreen ook behouden)
loop doe je bv met
| 1 2 3 4 5 | .. Loop |
[ Bericht 24% gewijzigd door HiDiHo op 01-09-2010 09:11:04 ]
Aan mijn uitspraken kunnen geen rechten ontleend worden
Uitspraken uit het verleden geven geen garantie voor de toekomst
Uitspraken uit het verleden geven geen garantie voor de toekomst
compilatiefout vbsquote:Op maandag 30 augustus 2010 22:14 schreef HiDiHo het volgende:
Ja, printscreentoets werkt op een of andere manier niet, daarom had ik hem al op CTRL-12
(en dan kun je de normale funtie van printscreen ook behouden)
loop doe je bv met
[ code verwijderd ]
Maar pas op dat je niet teveel http opvragen doet, fok stopt er dan mee bijvoorbeeld
geen gojim, geen dhimmi
Ik weet niet wat je precies wilt loopen?quote:
Het voorbeeld dat ik gaf blijft proberen zolang de pagina onbereikbaar is.
(dit moet je dus niet gebruiken)
lees: http://www.w3schools.com/VBscript/vbscript_looping.asp
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | Dim ZoekTekst,PaginaUrl,xmlhttp,resultStatus,resultContent ZoekTekst = "gevonden?" PaginaUrl = "http://forum.fok.nl/topic/1515204/2/25" 'Op te halen pagina PaginaTitel = "DIG / DEV / Wie weet wat van scripts?" 'Nodig om in te zoomen op pagina in IE Do While resultStatus<>200 Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.SetTimeouts 5000, 5000, 5000, 5000 xmlhttp.Open "GET", PaginaUrl, false xmlhttp.send() resultStatus = xmlhttp.status resultContent = xmlhttp.responseText If InStr(resultContent,ZoekTekst) > 1 Then PrintScreen() Else ' Tekst niet gevonden, doe niets End If Set xmlhttp = nothing Loop 'on error goto 0 Function PrintScreen() Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "http://forum.fok.nl/topic/1515204/2/25" 'Open pagina WshShell.AppActivate (PaginaTitel) 'Selecteer pagina WScript.Sleep 10000 'Wacht 10 seconden WshShell.SendKeys "^f" WshShell.SendKeys ZoekTekst WshShell.SendKeys "^{F12}" 'stuurt CTRL+F12 toets ' WshShell.SendKeys "{PRTSC}" 'stuurt Prt Sc toets WshShell.AppActivate ("DIG / DEV / Wie weet wat van scripts? ") 'Selecteer pagina ' WshShell.SendKeys "%P" 'ALT-P ' WScript.Sleep 5000 ' WshShell.SendKeys "[img]http://screen.mypohotos.cc/17/ss102.jpg[/img]" 'post url eventueel ' WshShell.SendKeys "%S" 'ALT-S Set WshShell = nothing End Function |
[ Bericht 1% gewijzigd door HiDiHo op 01-09-2010 09:26:03 ]
Aan mijn uitspraken kunnen geen rechten ontleend worden
Uitspraken uit het verleden geven geen garantie voor de toekomst
Uitspraken uit het verleden geven geen garantie voor de toekomst
|
|
