Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Parametr czy......?
anonim




Typ: Nie zarejestrowany
Parametr czy......?

Witam.
Wiec tak ,chcem otrzymac program ktory po kliknieciu na cmdjakistam odpali EXE net z parametrem np.view....czy moze to nie jest parametr?
Kozystalem z wyszukiwarki forum i znalazlem cos takiego:
Dim lPID As Long
lPID = Shell("C:\Program Files\My Progs\abc.exe /c /p /o:""D:\Some Dir\Some File""", _
      vbNormalFocus)

wiec,

lPID=Shell("c:\windows\net.exe /net view:""D:\tu""",_vbNormalFocus) tez mam watpliwosci do czego ta scierzka sie odwoluje,zapodalem dowolny ktalog na D:\
program odpla sie bez problemow no,ale czyta z parametu pierwszy wyraz czyli net.Probowalem tez
podac osobno /net /view i nic.Nie zapodam pelnego zrodla bo akurat w tej chwili nie mam do niego dostepu jezyli bedzie potrzebe to wkleje.
THENX

14-07-2004 01:30
  
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Oto, co podaje NET.EXE dla komendy /VIEW:

Wyświetla listę komputerów w określonej grupie roboczej lub listę
udostępnionych zasobów dostępnych we wskazanym komputerze.

  NET VIEW [\\komputer] [/YES]
  NET VIEW [/WORKGROUP:nazwagr] [/YES]

  komputer    Określa nazwę komputera, z którego chcesz uzyskać
              listę udostępnionych zasobów.
  /WORKGROUP  Określa, że chcesz uzyskać nazwy komputerów z innej grupy.
              roboczej, które udostępniają zasoby.
  nazwagr    Określa nazwę grupy roboczej, z której chcesz uzyskać listę
              komputerów.
  /YES        Wykonuje polecenie NET VIEW
              bez żądania potwierdzenia.

Aby wyświetlić listę wszystkich komputerów z Twojej grupy roboczej, które
udostępniają zasoby wpisz NET VIEW bez żadnych opcji.

Mam wrażenie, że po prostu źle skomponowałeś te parametry. Poza tym chyba raczej nie powinno być cudzysłowów przy scieżce (bo i po co?).


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

14-07-2004 14:16
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
A może tak?

Dim lPID As Long 
lPID = Shell(""C:\Winnt\cmd.exe net view"", _  vbNormalFocus)


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

14-07-2004 22:08
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
anonim




Typ: Nie zarejestrowany

Wiec tak.......losmac:tak tej funkcja nie da sie uruchomic(oczywiscie sprawdzilem)....marcin_anzieki za odpowiedz ,ale nie chodzilo o to co zwraca czy co daje(opisuje) net.exe z parametrem view  ,bo napisalem ze podaje ten program dla przykladu,ale dzieki za fatyge......Hym ,a problem dale jest!Jak uruchomic dzieki VB NP:net.exe z parametrem view(net view dokladna skladnia parametru)

14-07-2004 23:38
  
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

no nie wiem w czym jest problem...

wykonaj = "net.exe " + Chr$(34) + "View" + Chr$(34)
X = Shell(wykonaj, vbNormalFocus)

dziala na 100%
Pozdrawiam

15-07-2004 12:26
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
anonim




Typ: Nie zarejestrowany

Medal dla tego pana prosze..:.Thenx))))))

15-07-2004 12:30
  
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

Lub inaczej (uruchamiasz oddzielna powloke konsoli dla uruchomienia programu)

jezeli chcesz aby po wykonaniu programu okno zostalo zamkniete to robi sie tak:

'zamknij okno
wykonaj = "command.com /C" + "net.exe View"

a jak ma zostac to tak :

'zostaw okno
wykonaj = "command.com /K" + "net.exe View"

X = Shell(wykonaj, vbNormalFocus)

dla NT i XP zamiast command.com wpisz cmd.exe

jezeli nie wiesz w jakim systemie program zostal uruchomiony to mozna to zrobic na wiele sposobow

1. w workshop jest moj sampel - jaki system+Service pack
lub
2. pobierz katalog systemu windows

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Potem sprawdz czy w tym katalodu jest command.com czy cmd.exe i po problemie

Swego czasu zrobilem KLONA WindowsCommandera (przeszedl on wiele modyfikacji) - ostatnio dodana opcja to obsluga otoczenia sieciowego w VB.
Program wyswietla wszystkie nazwy komputerow bedacych w twoim otoczeniu sieciowym (nie w oknie otoczenie sieciowe, tylko w moim programie !!!) i po wybraniu komputera pokazuja sie udostepnione zasoby - prawie tak jak w WC, ale nie umie zmienic grupy roboczej na inna...

[Post edytowany dnia 15-07-2004 12:47 przez Knight Lore'FC]

15-07-2004 12:41
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Widzisz... działa...
Czyli przykład dałem dobry, tylko nie sprawdziłem, czy działa


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

15-07-2004 19:19
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003


Widzisz... działa...
Czyli przykład dałem dobry, tylko nie sprawdziłem, czy działa


No nie tak do konca... w takiej postaci jak przedstawiles to NIE DZIALA

16-07-2004 13:52
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
Wszystkich odpowiedzi: 8 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1