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: 2 Gæst(er)