Denne side bruger cookies
Dette forum bruger cookies. Hvis du er registreret, bruges de til at huske hvem du er logget ind som. Hvis ikke, gemmer vi dit sidste besøgstidspunkt. Besøgstidspunktet bruges bl.a. til at holde øje med, hvilke tråde du allerede har læst. Cookies er små tekstdokumenter, som bliver gemt i din browser og udgør ingen sikkerhedsrisiko. Tryk "Mere Information" nedenfor, for en liste over de cookies vi sætter. Du har mulighed for at fravælge cookies ved at klikke på knappen "Blokér Cookies" i bunden af denne boks.

En ikke-personhenførbar cookie vil blive gemt i din browser, uanset dit valg (Medmindre du ikke foretager et). Således undgår du at blive spurgt igen. Du kan til enhver tid ændre dit valg via linket i bunden af siden.

Tråd bedømmelse:
  • 0 Stemmer - 0 Gennemsnit
  • 1
  • 2
  • 3
  • 4
  • 5
Scar script
15-02-2017, 00:53 (Denne besked var sidst ændret: 15-02-2017, 00:54 af perwan.)
#1
Scar script
Halløjsa i stuen. Jeg tænkte, eller håbede på nogle herinde kunne få dette scar script til og køre optimalt igen :D Det er et gammelt script til N som har virket, men ikke gøre længere.

Hvis nogle måske har nogle af de gamle programmer bliver de da taget imod med kyshånd.

Undskyld for alt den tekst.




const 
username = 'brugernavn'; 
password = 'password'; 


nextfrom = 450; 
nextto = 300000; 
move = 1; 
Waiter = 2000; 

xoff = 5; 
yoff =118; 

Procedure ClickMouseSmoother(x, y: Integer); 
begin 
MoveMouseSmooth(x,y); 
Wait(200+random(100)); 
HoldMouse(x,y,true); 
Wait(200+random(100)); 
ReleaseMouse(x,y,true); 
end; 

Procedure check; 
var 
x,y,Mask,Mask2,Mask3,ok,mask4,mask5:integer; 
begin 
Mask := BitmapFromString(223, 14, 'beNrtWUkSwzAIy/8/3d4y09g' + 
'WEkvKAU6dJjgSyICT6xobGxsb89nn1ySvF4DhG8wVAF83hqB7aQzv' + 
'Be/F16c8/iFBFmXcTPHKqIM449KN6CqF5sviJCkz4oyHriKJ250CC' + 
'G7dV19yBfz74SLdQGLbrnMChoOAKZhXscspniY2LM61jZKhcNBh+n' + 
'VEnCtsvh1scfLRMENklhHGiwEmXQ0SPK0pxcHMOP9oFbk6KgQrp1k' + 
'8sTiZqOLC+4I4s0QVJ+hICq6xQHIpO0jFVipOpq04dML3xM7iBAjx' + 
'gFEhzlPGfYNNnE61OKXd4Sh9fJo6V07zqOLYXLnijA9XDjrSaT2r6' + 
'WS19bYzJ9OsS8eDLHFibFlkeTr4Pac6e+PjXm5bV29gxmO1jxRNJi' + 
'Q8vPvibT2XrJmjv7+cHOv/RabbC+2xsZ6fWsbG2tkXNF9kKQ=='); 
Mask2 := BitmapFromString(184, 13, 'beNrtl0sChDAIQ73/pWe2M7V' + 
'NHynoBnZqyyeEj9fV0tLSkiuff6kzQV56yp9x0jDEY4T4h0D7PXmO' + 
'0gBFBVXqeFLH7UG/ZwjeitLplbQOSqbIiETfj90Pb3UOF7VLq0fi2' + 
'9YHYVHEpa9r386j0DpJmkg5eDwJWZlyQBjSIMBErDLO/RHUJSCsqA' + 
'WbFYyC6OTlsE3iAzzReG6/GgXr1X4KIXXD1/2T70vblmL0vQqekHh' + 
'53ZEyD1n0sKrmibbo8QRGQWCs6yfbLYtHlAKmnnfv8sRTblgkNRJa' + 
'ekPD65n9ZDo+itKXsp+IAFN4YlDifO6IuUb+U2BvP/nfWa0Z4lji3' + 
'DkcIiHccqencdio+paWlhZTvkZAI04='); 
Mask3 := BitmapFromString(98, 12, 'beNrtljsSwCAIBb3/pbXLOBqe' + 
'D0GkkCqhYWfDJ6W8eOEetYsr1XuMPE5mRbc4U5mRqADk3GDf8zIp9' + 
'eeQ/H1VVV/S2qmAJYA3oIKk1i2TlESBr28E2LPkVdql0IYlZuFEWg' + 
'IDFWOJGUMGNaCXcK2AXgIrl0c9PVxHkzF7SXUOVPDaE8PfOMaS5cZ' + 
'l/kVJGg3niVTk'); 
Mask4 := BitmapFromString(323, 17, 'beNrtmtF2xCAIRPf/f3p7zj6' + 
'1TcTLgCZNZ96auDICo0j6ehmGYRiGYRiG0Yj3B6M/R4PjYRUyMT3y' + 
'dhG3bSHYb7pufTpJykS7Q1bnbVe2V8YTIe8Ri6BKC/kmdoUwXbLS+' + 
'+RGlgnZKkdCfv/EqUOO4+N5jmfB93mObGND/CGkwU2f+naUMIFpYR' + 
'6yruDwjR1++qrCZzTb9CdZu1n+hFjW8zABsj4hIZ66KODJR2YfZoU' + 
'sKBqqEm5c2Z+cehLO8+st2bSzKkiFe8onFQjNLuGvZeCUT4su+B5O' + 
'NuqARlGzKW9nhZw6/qbcOElhXe3z1A9ledWcT1HIja4rCnmRBEh05' + 
'NKaqFuuaePJNSEHN4KRRVhNtWQRzG3BNLwATuvVLiGTbIFJW6mj4G' + 
'k+zcCWsAZFOIxOXcj1UjYoF3nnqrG0hs3bFSdpPLL9ZO8ituJh6n6' + 
'nhaCyia0La7FKkZtdgnDgVUIrreuTNxZpdQHW78jEky1CbuHTWFrf' + 
'9o7cW8+QLYKX1vU+UvYmq9VsK7rWRb3s7FrDXi7J25audVedKexFc' + 
'teaf8Aiy0z1beLoyB/RHvCJ9o9i+jV/cyBu+38Ue4hd6PnHR/MfCp' + 
'l3px8f+v1+uMrzhmEYhmEYhmFswhewm/TQ'); 
//Log af knappen 
Mask5 := BitmapFromString(27, 8, 'beNpjYICA/zCAzCYP0MJAZHPQD' + 
'MdjHbIWZJV4DMSql6AgmjhWF2Kag8fZuAzE71NiDMRqPtZwwMPFYy' + 
'AuLxMwEADujMZI'); 

if FindBitmapMaskTolerance(Mask,x,y,46,290,300,340,70,5) or FindBitmapMaskTolerance(Mask2,x,y,46,290,300,340,70,5) or FindBitmapMaskTolerance(Mask3,x,y,46,290,300,340,70,5) or FindBitmapMaskTolerance(Mask4,x,y,46,290,375,340,70,5) or FindBitmapMaskTolerance(Mask5,x,y,173,67,206,81,70,5) then 
begin 
writeln('Disconnectet!'); 
ClickMouseSmoother(200,76); Wait(3000); 
ClickMouseSmoother(200,76); Wait(1000); 
Sendkeys(username); Wait(1000); 
ClickMouseSmoother(300,76); Wait(1000); 
Sendkeys(password); Wait(1000); 
ClickMouseSmoother(400,76); Wait(10000); 
writeln('Connected again!'); 
end; 
FreeBitmap(Mask); 
FreeBitmap(Mask2); 
FreeBitmap(Mask3); 
FreeBitmap(Mask4); 
ok := BitmapFromString(43, 19, 'beNq7//7a/ff3JiUPFILY/v/ygC' + 
'GIM6BcOgOgjb+LEQ6AiNAZDawDfhcPUQcsjdWEIDRBrGyqOwCXRXA' + 
'2sbaT5QBMw9HsJcF2GjgAM17oHwK0jgJi0gCtEyExuYBYNwzZcmDY' + 
'OgBJkJ4I4QC6Ww13wAC3iADqDP5u'); 
if FindBitmapToleranceIn(ok,x,y,xoff,yoff,xoff+400,yoff+370,100) then 
begin 
ClickMouseSmoother(x+random(41),y+random(17)); 
PlaySound('C:\WINDOWS\Media\notify.wav'); 
writeln('1 hour! (bitmap)'); 
wait(1000); 
end; 
FreeBitmap(ok); 
end; 

var 
x,y,b,sum,nextmove:integer; 

begin 
nextmove:= 0; 
sum:= 1; 
b:= 0; 
{PlaySound('C:\WINDOWS\Media\notify.wav');} 
repeat 
check; 
if (sum > nextmove) then 
begin 
if (b = 0) then 
begin 
x:= 15+random(40)+68*random(6); 
y:= 15+random(30)+68*(1+random(4)); 
b:= 1; 
end else 
begin 
x:= 55+random(20)+68*random(5); 
y:= 65+random(10)+68*random(5); 
b:= 0; 
end; 
x:=x+xoff; 
y:=y+yoff; 
ClickMouseSmoother(x,y); 
sum:= 600; 
nextmove:= nextfrom+random(nextto); 
writeln('next move in ' + IntToStr(nextmove/1000) + ' seconds, to ' + IntToStr(x) + 'x' + IntToStr(y) + ' - Uptime: ' + IntToStr(GetTimeRunning/1000/60) + ' min.'); 
end; 
sum:= sum+waiter; 
wait(waiter) 
until(false) 
end.
Find alle beskeder fra denne bruger
Citer denne besked i et svar
15-02-2017, 12:43
#2
RE: Scar script
Hvorfor ikke bruge nogle af de programmer, som er tilpasset Netstationen frem for det der?
Find alle beskeder fra denne bruger
Citer denne besked i et svar
15-02-2017, 15:15
#3
RE: Scar script
(15-02-2017, 12:43)r2Ed Skrev: Hvorfor ikke bruge nogle af de programmer, som er tilpasset Netstationen frem for det der?

Hvad mener du? Det er sgu da herre smart at lede efter farver på skærmen, flytte musen rundt omkring og at det så endda kun virker på bestemte opløsninger.. uff, det er sgu da herre lækkert.
yolo
Find alle beskeder fra denne bruger
Citer denne besked i et svar
15-02-2017, 18:18
#4
RE: Scar script
Hvad er det scriptet gør?


Jeg kan sikkert genskabe det i pyhton pyautogui.
Find alle beskeder fra denne bruger
Citer denne besked i et svar
12-09-2018, 21:43
#5
RE: Scar script
Er den her tråd helt død?
Jeg vil også gerne have et script der rent faktisk virker til NS. Happy
Find alle beskeder fra denne bruger
Citer denne besked i et svar
« Ældre | Nyere »




User(s) browsing this thread: 1 Gæst(er)