Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Wpisać polecenie w lini komend
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003
Wpisać polecenie w lini komend

Jak wpisać z poziomu vb wpisać polecenie do lini komend(działające na każdym systemie)?
Nie wiem jak to zrobić aby działało na 98 i na xp. Chyba powinno być shell cmd.exe, ale w 98 o ile pamiętam nie ma pliku cmd.exe

[Post edytowany dnia 09-11-2004 16:21 przez Usercontrol]

09-11-2004 16:20
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
marcin_an
Forumowicz




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

Nie wywoływałem niczego z linii komend w XP, ale zwykły format chyba działa. Czy nie?


_____________________________________________
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

09-11-2004 16:27
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003

A jakie znacie sposoby wysyłania polecień?

09-11-2004 17:25
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
Piotr T




Typ: neutral
Postów: 176
Zarejestrowany: May 2004

Na XP i NT wywołujesz CMD natomiast na innych systemach tworzysz plik wsadowy


_____________________________________________
Visual Basic.NET - Mercedes dla programistów

09-11-2004 18:04
Pokaż profil Piotr T  Wyślij email do Piotr T   Odwiedź stronę Piotr T  
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003

czy Shell "komenda" będzie działało na wszystkich systemach?

09-11-2004 18:43
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
marcin_an
Forumowicz




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

Shell powinno wystarczyć. Sprawdź poprostu, czy działa .

Jeśli nie masz jakiegoś Windowsa, to daj znać na forum, moze ktoś przetestuje za ciebie.

Potwierdzam, że działa na:
Win98SE
WinXP


_____________________________________________
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

09-11-2004 19:01
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Piotr T




Typ: neutral
Postów: 176
Zarejestrowany: May 2004

Pokażę Ci przykład jak ja to robię w VB.NET - a Ty sobie to przerób na VB
W kodzie tym chodzi o automatyczne wymuszenie przed startem programu zmapowania dysku sieciowego
pod odpowiednią literką
'-----------------
  Sub Main()
        ' deklaracje zmiennych
        Dim Form As New Form1
        Dim WINSYSTEM As String
        Dim NR As Byte

        ' sprawdzenie istniejącego systemu operacyjnego
        WINSYSTEM = System.Environment.OSVersion.Platform.ToString

        ' utworzenie i uruchomienie skryptów podłączających dyski sieciowe
        If WINSYSTEM = "Win32NT" Then

            ' utworzenie plików wsadowych dla Win NT
            NR = FreeFile()
            FileOpen(NR, Application.StartupPath & "\WinNT.cmd", OpenMode.Output)
            PrintLine(NR, "@echo off" )
            PrintLine(NR, "net use h: \\nazwadyskusieciowego\volumin /yes" )
            FileClose(NR)
            Shell(Application.StartupPath & "\WinNt.cmd", AppWinStyle.Hide)
        Else

            ' utworzenie plików wsadowych dla Win 9x
            NR = FreeFile()
            FileOpen(NR, Application.StartupPath & "\WinNT.bat", OpenMode.Output)
            PrintLine(NR, "@echo off" )
            PrintLine(NR, "net use h: \\nazwadyskusieciowego\volumin /yes" )
            FileClose(NR)
            Shell(Application.StartupPath & "\WinNt.bat", AppWinStyle.Hide)
        End If

        ' uruchomienie aplikacji menu
        Application.DoEvents()
        Application.Run(Form)
        '
    End Sub



_____________________________________________
Visual Basic.NET - Mercedes dla programistów

10-11-2004 08:00
Pokaż profil Piotr T  Wyślij email do Piotr T   Odwiedź stronę Piotr T  
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1