Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Potrebna Pomoć (kod za traženje particija)

[es] :: Visual Basic 6 :: Potrebna Pomoć (kod za traženje particija)

Strane: 1 2

[ Pregleda: 5758 | Odgovora: 20 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr



+8 Profil

icon Potrebna Pomoć (kod za traženje particija)23.08.2004. u 22:28 - pre 238 meseci
Želim napravit net share svih Particija... ali ne znam koji je cod za traženje particija... Znači kad prog nađe sve particije stavlja ih na share... akko bi to izgledalo (mislim na kod)

[Ovu poruku je menjao mladenovicz dana 24.08.2004. u 11:46 GMT]
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Potrebna Pomoć....24.08.2004. u 09:40 - pre 238 meseci
Lista driveova

Code:

Dim oFSO        As Scripting.FileSystemObject
Dim oDrive      As Scripting.Drive
    
    Set oFSO = New Scripting.FileSystemObject
    
    For Each oDrive In oFSO.Drives
        Debug.Print oDrive.DriveLetter 
    Next
    
    Set oFSO = Nothing

 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr



+8 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)24.08.2004. u 09:53 - pre 238 meseci
To mi ne radi nešto..... Ima li što jednostavnije?
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Potrebna Pomoć (kod za traženje particija)24.08.2004. u 09:58 - pre 238 meseci
Izvini, sta ti ne radi? Ovo je kod kojim dobijas listu svih drajvova na sistemu. Treba ti referenca na Micsrosoft Scripting RuntIme. Gde ces jednostavnije od ovoga.

Edit share code

Code:

'Code by Roy Strickland, submitted by Jarret Peterson
'This code can share and unshare the directory 'c:\'

'===================================
'start a new project and add three command buttons
'set forms AutoRedraw property to true
'ADD TO A MODULE IN YOUR PROJECT:
'====================================
Option Explicit
Public Platform As Long 'Platform ID of OS.  1 or 2

'Structure for Getversion
Public Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128      '  Maintenance string for PSS usage
End Type

Public Const STYPE_DISKTREE As Long = 0
Public Const STYPE_PRINTQ As Long = 1
Public Const STYPE_DEVICE As Long = 2
Public Const STYPE_IPC As Long = 3

'Access types
Public Const ACCESS_READ As Long = &H1
Public Const ACCESS_WRITE  As Long = &H2
Public Const ACCESS_CREATE  As Long = &H4
Public Const ACCESS_EXEC  As Long = &H8
Public Const ACCESS_DELETE As Long = &H10
Public Const ACCESS_ATRIB  As Long = &H20
Public Const ACCESS_PERM  As Long = &H40
Public Const ACCESS_ALL  As Long = &H7F
Public Const WNTYPE_DRIVE  As Long = 1
Public Const SHI_USES_UNLIMITED  As Long = -1

'Info structures for NetShareAdd
Type SHARE_INFO_2
    shi2_netname As String * 14
    shi2_type As Long
    shi2_remark As String  'Far pointer to string
    shi2_permissions As Long
    shi2_max_uses As Long
    shi2_current_uses As Long
    shi2_path As String    'Far pointer to string
    shi2_passwd As String * 10
End Type

Type SHARE_INFO_50
    shi50_netname As String
    shi50_type As String
    shi50_flags As Long
    shi50_remark As String
    shi50_path As String
    shi50_rw_password As String
    shi50_ro_password As String
End Type

'ACL for Security Descriptor
Public Type ACL
        AclRevision As Byte
        Sbz1 As Byte
        AclSize As Integer
        AceCount As Integer
        Sbz2 As Integer
End Type

'Security Descriptor for SHARE_INFO_502
Public Type SECURITY_DESCRIPTOR
        Revision As Byte
        Sbz1 As Byte
        Control As Long
        Owner As Long
        Group As Long
        Sacl As ACL
        Dacl As ACL
End Type

Type SHARE_INFO_502
    shi502_netname As String
    shi502_type As Long
    shi502_remark As String
    shi502_permissions As Long
    shi502_max_uses As Long
    shi502_current_uses As Long
    shi502_path As String
    shi502_passwd As String
    shi502_reserved As Long
    shi502_security_descriptor As SECURITY_DESCRIPTOR
End Type

Public Security As SECURITY_DESCRIPTOR

Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
                            (lpVersionInformation As OSVERSIONINFO) As Long
Public Declare Function lstrcpy Lib "kernel32" _
                    (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
'NT
Public Declare Function NetShareDelNT Lib "netapi32.dll" Alias "NetShareDel" _
(ByVal servername As Any, ByVal netname As String, ByVal reserved As Long) As Long
Public Declare Function NetShareAddNT Lib "netapi32.dll" Alias "NetShareAdd" _
                                (ByVal servername As Any, ByVal slevel As Long, _
                                buf As SHARE_INFO_502, ByVal cbbuf As Long) As Long
'9x
Public Declare Function NetShareDel9x Lib "svrapi.dll" Alias "NetShareDel" _
(ByVal servername As Any, ByVal netname As String, ByVal reserved As Long) As Long
Public Declare Function NetShareAdd9x Lib "svrapi.dll" Alias "NetShareAdd" _
(ByVal servername As Any, ByVal slevel As Long, buf As SHARE_INFO_50, ByVal cbbuf As Long) As Long

'====================
'ADD CODE TO FORM:
'====================
Option Explicit
Dim SI2 As SHARE_INFO_2
Dim SI502 As SHARE_INFO_502
Dim SI50 As SHARE_INFO_50
Dim OSVERInfo As OSVERSIONINFO
Dim ShareRemark As String
Dim SharePath As String
Dim nerr As Long
Dim nPath As String
Dim pwd As String
Dim ret As Long
Dim OS As Long
Private Sub Form_Load()
    OSVERInfo.dwOSVersionInfoSize = Len(OSVERInfo)
    OS = GetVersionEx(OSVERInfo)
    Command1.Caption = "Create Share NT"
    Command2.Caption = "Create Share Win9x"
    Command3.Caption = "Delete Share"
End Sub
Private Sub Command1_Click()
'NT
On Error Resume Next
    SetStrings
    nerr = NetShareAddNT(0&, 2, SI502, ret)
    Print nerr
End Sub
Private Sub Command2_Click()
'9x
On Error Resume Next
    SetStrings
    nerr = NetShareAdd9x(0&, 50, SI50, ret)
    Print nerr
End Sub
Private Sub Command3_Click()
'Delete
On Error Resume Next
    If OSVERInfo.dwPlatformId = 1 Then
        nerr = NetShareDel9x(0&, nPath, 0&)
    Else
        nerr = NetShareDelNT(0&, nPath, 0&)
        Print nerr
    End If
End Sub
Public Sub SetStrings()
    If OSVERInfo.dwPlatformId = 1 Then
'9x OS
        nPath = "NewShare"
        ShareRemark = "Remark for new share"
        SharePath = "C:\"
        pwd = "Share"
        
        SI50.shi50_netname = nPath
        SI50.shi50_path = SharePath

        SI50.shi50_remark = ShareRemark
        SI50.shi50_type = STYPE_DISKTREE
        SI50.shi50_ro_password = vbNullChar
        SI50.shi50_rw_password = vbNullChar
        
    Else
'NT OS
        nPath = StrConv("NewShare", vbUnicode)
        ShareRemark = StrConv("Remark for new share", vbUnicode)
        SharePath = StrConv("C:\", vbUnicode)
        pwd = StrConv("Share", vbUnicode)
    
        SI502.shi502_current_uses = 0
        SI502.shi502_max_uses = 10
        SI502.shi502_netname = nPath
        SI502.shi502_passwd = pwd
        SI502.shi502_path = SharePath
        SI502.shi502_permissions = ACCESS_ALL
        SI502.shi502_remark = ShareRemark
        SI502.shi502_reserved = 0
        SI502.shi502_security_descriptor = Security
        SI502.shi502_type = STYPE_DISKTREE
        
    End If
End Sub


 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr



+8 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)24.08.2004. u 10:08 - pre 238 meseci
Ja želim neki amli kod ako ima... jer mi je ovo preveliko.... Znači meni treba samo za traženje particija a ja ću ih stavit na share....
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr



+8 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)24.08.2004. u 11:27 - pre 238 meseci
Zna li ko onda neki manji kod poput onog prvog što je Željko postavio?
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)24.08.2004. u 17:42 - pre 238 meseci
Pa ako bas hoces manji kod izbaci poslednji red :). Salim se.
Verovatno si zaboravio da dodas referencu na Microsoft Scripting runtime.
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr



+8 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)24.08.2004. u 22:49 - pre 238 meseci
Da... to je...
Sad radi ali kako sad da tamo dodam kod za net share
Code:

shell "net share c:\" 

Mislim ja znam, taj kod za Share... I znam share s bat fajlom ali mi je to glupost...
Znači kako sad dodati net share komandu I di?
 
Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.scnet.yu



+104 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)24.08.2004. u 23:40 - pre 238 meseci
A sta ti nije jasno? Imas kod za pretragu svih particija, imas kod za dodavanje share foldera i sad samo iskobinuj.
Iako prvi put vidim ovaj kod odmah mi pada u oci funkcija SetStrings() i linija broj 5 u toj funkciji. Verovatno ti to treba Samo umesto c:\ stavi koju particiju hoces i to bi bilo to
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)25.08.2004. u 00:55 - pre 238 meseci
Code:

Dim oFSO        As Scripting.FileSystemObject
Dim oDrive      As Scripting.Drive
    
    Set oFSO = New Scripting.FileSystemObject
    
    For Each oDrive In oFSO.Drives
        Shell ("net share " & oDrive.DriveLetter)
    Next
    
    Set oFSO = Nothing


[Ovu poruku je menjao Shadowed dana 25.08.2004. u 12:10 GMT]
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr



+8 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)25.08.2004. u 09:23 - pre 238 meseci
Neradi... Ja stavim ovaj kod što je Shadowed postovao... uključim Micsrosoft Scripting RuntIme , pokrenem ali niš... Nema shara... Zašto?
 
Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.telekom.yu



+104 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)25.08.2004. u 09:38 - pre 238 meseci
Taj kod je samo za trazenje svih particija na sistemu. Mladenovicz je postavio još jedan kod koji dodaje share. Treba da iskombinuješ ta dva koda
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr



+8 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)25.08.2004. u 09:55 - pre 238 meseci
ja sam mislio da bi trebao onaj kod radit što je postovao Shadowed jer je stavio komandu za Net sahare
 
Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.telekom.yu



+104 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)25.08.2004. u 10:06 - pre 238 meseci
Code:
net share <share naziv>=<drive:path>

ili npr

net share test=c:\windows

ako ti nesto nije jasno kucas "net share /?" i lepo je objasnjeno kako se radi
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)25.08.2004. u 10:21 - pre 238 meseci
Upravo tako. Ja sam samo automatski ubacio onu komandu u kod i ne gledajuci da li je ispravna. Sory.
BTW, trebalo je izbaciti i onaj UBB jer sam zaboravio da se on ne parsira izmedju code tagova.
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr



+8 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)25.08.2004. u 11:12 - pre 238 meseci
Znam ja komande za Net sahre.... I lako mi je naprvit net share za particiju kojoj znam naziv npr...
Code:

net share C=c:\

Ali meni je problem (mislim ne znam) kako da kod traži particije i da ih onda pomoću ovog gore koda stavlja na net sahre... Kod mora bit što manji.....
To sam već sve rekao ali ipak....
 
Odgovor na temu

degojs

Član broj: 4716
Poruke: 5096



+51 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)25.08.2004. u 11:17 - pre 238 meseci
VRKY,
šta misliš, da nisi ti malo dosadan više sa tim svojim zahtevima po raznim forumima u kojima tražiš da ti ljudi pišu kod za tvoje viruse?
Commercial-Free !!!
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr



+8 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)25.08.2004. u 11:27 - pre 238 meseci
O čemu ti? kakvim drugim forumima?
Ja samo pitam ,kako to ide....
 
Odgovor na temu

Vranac
Vranac Srdjan
Software developer
Novi Sad, Vojvodina

Član broj: 3493
Poruke: 353
*.panline.net

Jabber: vranac@elitesecurity.org
ICQ: 64150005
Sajt: www.linkedin.com/in/vrana..


+1 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)25.08.2004. u 11:37 - pre 238 meseci
Citat:
degojs: VRKY,
šta misliš, da nisi ti malo dosadan više sa tim svojim zahtevima po raznim forumima u kojima tražiš da ti ljudi pišu kod za tvoje viruse?


Zaista nesto mi se cini da si u pravu
Idle mind is the devils playground, in my case it turned out to be an amusement park.

Sustina problema ove zemlje:
Legeonar_: Sto pre treba da shvatite da je EU propast i da se tamo mora raditi,a ne samo biti zaposlen.
http://www.elitemadzone.org/p1864861

Nobody Remains Virgin, Life Fucks Everyone
 
Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.telekom.yu



+104 Profil

icon Re: Potrebna Pomoć (kod za traženje particija)25.08.2004. u 12:12 - pre 238 meseci
iako i ja mislim da praviš raznorazne viruse evo celog koda
Code:
Dim oFSO        As Scripting.FileSystemObject
Dim oDrive      As Scripting.Drive
Dim ret as integer
    
    Set oFSO = New Scripting.FileSystemObject
    
    For Each oDrive In oFSO.Drives
        ret = shell ("net share " & oDrive.DriveLetter & "=" & oDrive.DriveLetter)
    Next
    
    Set oFSO = Nothing

ako ovo ne radi iz prve nemoj odmah da pitaš šta ne valja nego pogledaj koju ti grešku prijavljuje, pošto je ovo najjednostavniji princip i nije teško da se primeti (i ispravi) greška.
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
 
Odgovor na temu

[es] :: Visual Basic 6 :: Potrebna Pomoć (kod za traženje particija)

Strane: 1 2

[ Pregleda: 5758 | Odgovora: 20 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.