Dos gui u visual basicu

Dos gui u visual basicu 22.11.2004. u 15:27 · pre 267 meseci #1

Pozdrav, nakon sto sam probao sve zivo, pretrazio cijeli NET jos mi preostaje da vas pitam pa bi mi puno pomoglo ako neko moze pomoci
Ovako:

Imal neko source ili, jel moze napraviti iducu aplikaciju.

Imam program u DOS-u za knjigovodstvo htio bi napraviti u vb-u aplikaciju u kojoj ce se taj program u biti pokretati. Znaci da ja imam gore od windowsa sucelje (Minimize, Maximize, FILE, EDIT i taj toolbar...) a da mi od DOS-a program otvori unutar toga i izbaci(izbrise) onaj naziv COMMAND prompt...
Znaci ukratko. Kad ja pokrenem tu aplikaciju da on meni gore napravi toolbar, ikonice itd a dolje iznad da je DOS bez onog svog toolbara gdje pise COMMAND PROMPT. Evo saljem i slicicu da vidite sta mislim, samo sto u aplikaciji treba biti CMD do kraja ekrana a ne ovako do pola.

Nadam se da cete mi pomoci puno bi mi znacilo. Hvala unaprijed

slika-DOS.jpg48.6k

Re: Dos gui u visual basicu 22.11.2004. u 15:51 · pre 267 meseci #2

Evo ova slika najbolje pokazuje na sta sam mislio. Kako se i vidi na njoj aplikacija je u sredini a gore je navigacija

console.gif52.66k

Re: Dos gui u visual basicu 22.11.2004. u 15:52 · pre 267 meseci #3

Sve i da to napravis (mozda moze sa SetParent APIjem) ne znam kako bi povezao Toolbar iz VB aplikacije sa DOS aplikacijom

Potpis

Blue Man Group

Re: Dos gui u visual basicu 22.11.2004. u 17:27 · pre 267 meseci #4

Toolbarovi su neovisni o programu u Dos-u. To je samo meni za pomoc da mogu napraviti UPGRADE sa neta, indexiranje snimanje arhiva... Jer to vec imam gotovo u VB-u pa bi povezao. Jel moze onda primjer aplikacije sa ovim SetParent, jer zbilja ne znam kako to napraviti pa bi sve pomoglo

Re: Dos gui u visual basicu 24.11.2004. u 13:13 · pre 267 meseci #5

Code:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetWindow Lib "user32" _
(ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function LockWindowUpdate Lib "user32" _
(ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function DestroyWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" _
(ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" _
(ByVal hwnd As Long) As Long
Const GW_HWNDNEXT = 2
Dim mWnd As Long
Function InstanceToWnd(ByVal target_pid As Long) As Long
    Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long
    'Find the first window
    test_hwnd = FindWindow(ByVal 0&, ByVal 0&)
    Do While test_hwnd <> 0
        'Check if the window isn't a child
        If GetParent(test_hwnd) = 0 Then
            'Get the window's thread
            test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid)
            If test_pid = target_pid Then
                InstanceToWnd = test_hwnd
                Exit Do
            End If
        End If
        'retrieve the next window
        test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT)
    Loop
End Function
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    Dim Pid As Long
    'Lock the window update
    LockWindowUpdate GetDesktopWindow
    'Execute notepad.Exe
    Pid = Shell("c:\windows\notepad.exe", vbNormalFocus)
    If Pid = 0 Then MsgBox "Error starting the app"
    'retrieve the handle of the window
    mWnd = InstanceToWnd(Pid)
    'Set the notepad's parent
    SetParent mWnd, Me.hwnd
    'Put the focus on notepad
    Putfocus mWnd
    'Unlock windowupdate
    LockWindowUpdate False
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'Unload notepad
    DestroyWindow mWnd
    'End this program
    TerminateProcess GetCurrentProcess, 0
End Sub

Potpis

Blue Man Group

Re: Dos gui u visual basicu 25.11.2004. u 00:54 · pre 267 meseci #6

Nije to-to, on otvori glavnu formu i unutar nje notepad, ne znam kako da objasnim, al trebam nesto tipa da on otvara prozor dosa (cmd.exe) tipa full screen kao preko short cuta al da ne ide na FULL SCREEN nego da ga omedjim u tu formu. Prakticki da se uglavi u nju. Np3. ako je rezolucija 1024*768 da on bude cirka 1000*768 a ova 24 pixela kao za toolbar (FILE, EDIT...) Hvala ti na ovom sto si se trudio, probao sam ja s ovim tvojim pozvat i command promp i program al opet nista.

I jos jedna stvar program se inace poziva preko desktopa "XXX.PIF" jer samo tako ga pod XP-om mogu otvoriti u full screenu.

Ako ikako mozes pomoc. Hvala unaprijed

Re: Dos gui u visual basicu 25.11.2004. u 10:46 · pre 267 meseci #7

Moras da pokreces VB aplikaciju, a ona da pokrece DOS aplikaciju i da je uglavi unutar svoje forme

Potpis

Blue Man Group

Re: Dos gui u visual basicu 25.11.2004. u 14:43 · pre 267 meseci #8

Mislim da razumem sta ti je potrebno jer je i meni trebalo takvo nesto (i jos uvek mi treba :)). Pretpostavljam da bi ti trebalo nesto kao da u TextBox-u ide tekst koji bi inace isao u konzoli (ovo je meni trebalo), ili da se u tako nekoj kontroli iscrtava ono sto bi se iscrtavalo u konzoli.
Nazalost, nemam resenje za ovo, ali se nadam da sam pomogao da se pitanje bolje razume (ako neko zna resenje).

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: Dos gui u visual basicu 25.11.2004. u 14:47 · pre 267 meseci #9

@Shadowed
https://www.elitesecurity.org/p390889

Potpis

Blue Man Group

Re: Dos gui u visual basicu 25.11.2004. u 15:26 · pre 267 meseci #10

Svaka cast!
Kako li sam samo propustio ovo?
Isprobano, radi. Jedino se nisam bas udubljivao u API-je. Znas li mozda zasto ne rade komande kao dir, copy i sl.?

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: Dos gui u visual basicu 25.11.2004. u 15:47 · pre 267 meseci #11

U primeru se koristi ping, ali to je u stvari ping.exe (keyword CreateProcess). Probaj umesto ping da stavis cmd.exe /c dir

Potpis

Blue Man Group

Re: Dos gui u visual basicu 25.11.2004. u 16:15 · pre 267 meseci #12

Tacno, kao sto rekoh nisam gledao detaljno kod, neophodno je da bude neki proces i logicno cmd.exe /c dir c: radi.

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: Dos gui u visual basicu 29.11.2004. u 19:44 · pre 266 meseci #13

Ako bih mogao da se dodam na ovu temu...
Da li je nekako moguće "inkapsulirati" dos prozor (cmd.exe) u formu?
Problem je u tome što u programu koristim WScript.Shell koji otvori cmd.exe i kada se koristi SendKeys, prozor mora uvek biti fokusiran. Inače SendKeys, ne odrađuje posao. Može li se to nekako rešiti?

Potpis

Volim da se vozim grackim autobusom.
Gracki autobus jede sitne pare,
gracki autobus zna kad treba stane.

Re: Dos gui u visual basicu 29.11.2004. u 20:18 · pre 266 meseci #14

Pogledaj ovaj kod iznad. SetParent API bi trebao da radi to sto ti treba

Potpis

Blue Man Group

Re: Dos gui u visual basicu 30.11.2004. u 21:32 · pre 266 meseci #15

Citat:

Pogledaj ovaj kod iznad.

Hm.... koji? Nisam bas ukapirao.

Potpis

Volim da se vozim grackim autobusom.
Gracki autobus jede sitne pare,
gracki autobus zna kad treba stane.

Re: Dos gui u visual basicu 01.12.2004. u 11:00 · pre 266 meseci #16

https://www.elitesecurity.org/p506045

Potpis

Blue Man Group

Re: Dos gui u visual basicu 07.12.2004. u 17:33 · pre 266 meseci #17

Nisam uspio rijesiti s onim sto si mi dao, moram priznat da nisam tolko iskusan
pa bi te htio jos jednom zamoliti ako mozes da se posvetis u svezi tog pitanja, pa
najbolje da mi na ovaj mail posaljes aplikaciju pod zipom ili rar-om

Napomenut cu jos jedno sta mi treba pa se nadam da ces moc pomoci

Treba mi nesto kao KONZOLA koja ce pokretati dos a da mi je sucelje 32-bitno, mislim
da se sjecas o cemu je rijec. Da gore imam meni koji cu poslje sam napraviti i povezati sa
postojecim aplikacijama koje imam al nikako da uvucem u njega cmd.exe

Rijec je o knjigovodstvenom programu kojeg bi htio pokretati unutarj windows shella.
Program je radjen u CLIPPERu i pozivam ga preko shortcuta na desktopu koji se zove (POS.PIF)
Taj PIF poziva jedan BAT (POS.BAT) koji se nalazi u direktoriju C:\POS i unutra je i POS.EXE

To sam morao tako napraviti jer kako su dosli win xp imao sam neke linije oko
svih rubova programa pa ima jedna datoteka koja radi neki rezize i onda bude sve ok

Znaci ne moze direktno POS.EXE da se poziva jer bude mali prozor i pun linija, pa taj bat ujedno pozove
i taj podprogramcic za resize ekrana i bude full screen i bez tih linija.
Nadam se da nisam prezakompliciro i da si shvatio kako to ide

Na desktopu zena klikne na ikonu i ona pozove taj bat i normalno program bude preko
cijelog ekrana (logicno)
Sad ako ikako mozes da mi napravis pod VB da se taj POS otvori nesto tipa u child formi
da je fixan i ne mrda a gore da imam meni koji je neovisan o tom programu.
Ja sam to zamislio da on taj PIF poziva koji ujedno pokrece program u FULL SCREENU
a da mu se sad taj FULL SCREEN malo skrati tj. strpa u ovo sucelje.

Nadam se da si shvatio a ako si voljan pomoc slobodno se javi na ovaj mail u vezi bilo kakve dileme i
nejasnoce. U svakom slucaju puno ti hvala sto si pokusu pomoc

Hvala

Re: Dos gui u visual basicu 08.12.2004. u 14:04 · pre 266 meseci #18

Sinoc sam do kasna radio i danas malo i evo maximum sta sam ja uspio izvuci, nasao sam na netu neku dos, console skriptu pa sam je ubacio unutra da probam, al ne mogu otvoriti program unutar ove VB aplikacije. Evo stavit cu i datoteku sa sourcom pa pogledajte, to je kao dos shell, znaci u direktorij di cete raspakirati ovaj program napravite i bat npr DOS.BAT i snimite ga u direktorij od ovog programa, a on neka poziva CMD.EXE, jos mi samo to reba da uglavim unutra. Pa javite ako uspijete

Konzola.zip20.05k

Re: Dos gui u visual basicu 08.12.2004. u 14:39 · pre 266 meseci #19

Code:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function GetParent Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function SetParent Lib "user32" _
(ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetWindow Lib "user32" _
(ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function LockWindowUpdate Lib "user32" _
(ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" _
(ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" _
(ByVal hwnd As Long) As Long
Const GW_HWNDNEXT = 2
Dim mWnd As Long
Function InstanceToWnd(ByVal target_pid As Long) As Long
    Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long
    'Find the first window
    test_hwnd = FindWindow(ByVal 0&, ByVal 0&)
    Do While test_hwnd <> 0
        'Check if the window isn't a child
        If GetParent(test_hwnd) = 0 Then
            'Get the window's thread
            test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid)
            If test_pid = target_pid Then
                InstanceToWnd = test_hwnd
                Exit Do
            End If
        End If
        'retrieve the next window
        test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT)
    Loop
End Function
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    Dim Pid As Long
    'Lock the window update
    LockWindowUpdate GetDesktopWindow
    Pid = Shell("cmd.exe", vbNormalFocus)
    If Pid = 0 Then MsgBox "Error starting the app"
    mWnd = InstanceToWnd(Pid)
    SetParent mWnd, Me.hwnd
    Putfocus mWnd
    LockWindowUpdate False
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'Unload notepad
    DestroyWindow mWnd
    'End this program
    TerminateProcess GetCurrentProcess, 0
End Sub

Potpis

Blue Man Group

Re: Dos gui u visual basicu 08.12.2004. u 23:40 · pre 266 meseci #20

Nije to to, otvori on cmd al je u onoj maloj velicini ne bude cijeli unutar aplikacije...

Forum kao aplikacija na telefonu

Srodne teme