Beste lezer,
Ik ben op zoek naar een mirc script die op google kan zoeken ik heb al op verschillende zoekwoorden hier gezocht en op Google.. het enige wat ik heb kunnen vinden is dit script:
• aangezien ik wel kan mircscripten maar niet met sockets kan werken kan ik het niet zelf maken.
• Ik heb een script gevonden maar dat schijnt het niet echt te doen..
hier is het script:
nee nu wil ik niet dat jullie het script voor me gaan fixen
Nu zou je willen weten wat dit script NIET doet hij geeft de results niet terug 
dus hij geeft alleen tekst maar geen responds als: Wat de zoekresultaten zijn.
dit is alleen om aan te tonen dat ik echt heb gezocht ik heb op google gezocht op:
• Google+mirc+script
• Google+irc+script
• irc+google+script
verder kon ik niet echt een paar zoekwoorden bedenken hier heb ik daar ook op geziocht maar in deze search kan je niet het "+" teken gebruiken
weet iemand misschien waar ik het eventueel misschien zou kunnen vinden ik kan het echt niet vinden heb al op google gezocht eerst kwam ik op een niet te belezen site en daarna op een frans.. nou mag ik wel half frans zijn maar ik kan geen woord frans: ) (http://www.theguardian.be.tf)
• Dit is niet bedoeld als een script reqeust
Ik ben op zoek naar een mirc script die op google kan zoeken ik heb al op verschillende zoekwoorden hier gezocht en op Google.. het enige wat ik heb kunnen vinden is dit script:
• aangezien ik wel kan mircscripten maar niet met sockets kan werken kan ik het niet zelf maken.
• Ik heb een script gevonden maar dat schijnt het niet echt te doen..
hier is het script:
code:
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
| menu menubar {
Recherche Google:search
}
alias search {
if ($window(@Search) = $null) {
window -e @Search /google arial 12
Aline -p @Search 11,1G10,1oogle 11,1S10,1earch 11,1A10,1dd-11,1O10,1n v1.00
Aline -p @Search
Aline -p @Search 11,1A10,1uteur: 8,1S7,1teve 8,1D7,1e 8,1J7,1ongh (GuaRDiaN)
Aline -p @Search 11,1U10,1rl: 9,1http://www.theguardian.be.tf
Aline -p @Search
Aline -p @Search 8,1Pour lancer une recherche, tapez les mots clefs dans la zone d'édition.
Aline -p @Search 8,1La commande /GOOGLE DOIT être présente ( ex: /google mirc )
Aline -p @Search 8,1Ensuite vous devrez définir le nombre de résultats souhaités.
Aline -p @Search 8,1Une fois les résultats affichés, double-cliquez sur les URL pour accéder aux sites
Aline -p @Search
Aline -p @Search
Aline -p @Search
}
}
alias google {
set %queryk-temp $1-
set %nres 3
set %search.nick $nick
/notice %search.nick 5 -==[ zoeken op Google.com:12 $1- 5]
/notice %search.nick 5 - zoeken op 12 %nres 5 resultaten:
if ($numtok(%queryk-temp,32) > 1 ) {
var %ntok = 1
while ( %ntok <= $numtok(%queryk-temp,32) ) {
if ( %queryk = $null ) set %queryk $gettok(%queryk-temp,1,32)
else set %queryk %queryk $+ $chr(43) $+ $gettok(%queryk-temp,%ntok,32)
inc %ntok
}
}
else set %queryk %queryk-temp
unset %queryk-temp
sockopen google google.com 80
}
on *:sockopen:google:{
;echo -s Connection established to server, requesting information
var %query = /search?num= $+ %nres $+ &hl=fr&safe=off&q= $+ %queryk $+ &lr=
sockwrite -n google GET %query $+ $crlf
}
on *:sockread:google:{
if ($sockerr > 0) { return }
:nextread
sockread %temp
if ( $left(%temp,11) == <p><A HREF= ) {
var %url = $remove($gettok(%temp,2,62),<A HREF=)
;aline -p @Search %temp
/notice %search.nick 12 $+ $clean(%temp)
/notice %search.nick 3-->10 $clean-and($find-http(%url))
}
if ($sockbr == 0) { return }
else { goto nextread }
}
on *:sockclose:google:{
if ($sockerr) { echo -s Error! }
;echo -s Connection closed
/notice %search.nick 5-==[ Einde resultaten ]
unset %title
unset %nres
unset %queryk
}
alias clean {
var %clean-pos = 1
set %title $1-
while ( %clean-pos <= $len($1-) ) {
if ( $mid( $1- , %clean-pos , 1) = $chr(60) ) {
var %start-pos = %clean-pos
:seek62
inc %clean-pos
if ( $mid( $1- , %clean-pos , 1) = $chr(62) ) { var %end-pos = %clean-pos | goto end-seek62 }
else goto seek62
:end-seek62
var %lenght-clean = $calc(%end-pos - %start-pos) + 1
set %title $remove(%title,$mid($1-,%start-pos,%lenght-clean))
}
inc %clean-pos
}
return %title
}
alias find-http {
var %char = $1
var %http-pos = 1
while ( %http-pos <= $len(%char) ) {
if ( $mid(%char,%http-pos,4) == http ) return $mid(%char,%http-pos,$len(%char) )
inc %http-pos
}
}
alias clean-and {
if ( $chr(38) !isin $1- ) return $1-
var %charspec = $1-
var %spec-pos = 1
while ( %spec-pos <= $len(%charspec) ) {
if ( $mid(%charspec,%spec-pos,1) = $chr(38) ) {
var %spec-clean-pos = %spec-pos - 1
return $mid(%charspec,1,%spec-clean-pos )
}
inc %spec-pos
}
} |
nee nu wil ik niet dat jullie het script voor me gaan fixen
Nu zou je willen weten wat dit script NIET doet
hij geeft de results niet terug dus hij geeft alleen tekst maar geen responds als: Wat de zoekresultaten zijn.dit is alleen om aan te tonen dat ik echt heb gezocht ik heb op google gezocht op:
• Google+mirc+script
• Google+irc+script
• irc+google+script
verder kon ik niet echt een paar zoekwoorden bedenken hier heb ik daar ook op geziocht maar in deze search kan je niet het "+" teken gebruiken
weet iemand misschien waar ik het eventueel misschien zou kunnen vinden ik kan het echt niet vinden heb al op google gezocht eerst kwam ik op een niet te belezen site en daarna op een frans.. nou mag ik wel half frans zijn maar ik kan geen woord frans: ) (http://www.theguardian.be.tf)
• Dit is niet bedoeld als een script reqeust
en het eigenlijk buiten mijn kennis gaat ik heb werkelijk nog 
:strip_exif()/u/56159/archer.gif?f=community)
:strip_exif()/u/48159/calvin.gif?f=community)
/u/46983/multitasking.png?f=community)
:strip_icc():strip_exif()/u/45425/icon.jpg?f=community){kind=icon}