Shellsec

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.

Hvorfor ikke bruge nogle af de programmer, som er tilpasset Netstationen frem for det der?

(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.

Hvad er det scriptet gør?


Jeg kan sikkert genskabe det i pyhton pyautogui.

Er den her tråd helt død?
Jeg vil også gerne have et script der rent faktisk virker til NS.

Jeg vil også super gerne have et NS script ^^