Help with VB6

[ntg_net]

Γινεται καποιος να μου στειλει ενα αρχειο για VB6 να τρεχει και να μην ανοιγει καποια φορμα αλλα να δημειουργει ενα εικονιδιο στο system tray οπου με δεξι κλικ να βγαζει 2 επιλογες μια να τρεχει το cmd και η αλλη regedit.

 

email : [email protected]

[UserXP]

Εδώ είναι ένα sample

TrayIcon.zip

[ntg_net]

Αυτο ακριβως ηθελα.. ευχαριστω... αλλα κατι ακομα

 

Πως θα βαλω το Πινακα Ελεγχου ? Αλλα προγραμματα ?

Δες λιγο πιο κατω τι θελω .. υπαρχει τροπος ?

 

Private Sub mnuRegEdit_Click()

Shell "regedit", vbNormalFocus

End Sub

 

Private Sub mnucmd_Click()

Shell "cmd", vbNormalFocus

End Sub

 

Private Sub mnuPolicies_Click()

Shell "gpedit.msc", vbNormalFocus

End Sub

 

Private Sub mnuC_Click()

Shell "c:\", vbNormalFocus

End Sub

 

Private Sub mnuC_Click()

Shell " edw Control Panel ", vbNormalFocus

End Sub

 

 

Private Sub mnuC_Click()

Shell " ena allo programa se kapoio path px c:\nero\nero.exe", vbNormalFocus

End Sub

 

Private Sub mnuC_Click()

Shell " enas diktiakos fakelos", vbNormalFocus

End Sub

[UserXP]

Ανοίγεις τη φόρμα στη VB

 

Tools - Menu Editor

Προσθέτεις νέα μενού (Caption & Name) στο ίδιο επίπεδο με το "Menu". Π.χ. Caption = "Nero", Name = "mnuNero" και Οκ

 

Πάλι στη φόρμα κάνεις click στο μενού που θέλεις και προσθέτεις τον κώδικα που θέλεις

 

explore c:\

Shell "explorer.exe ""c:\""", vbNormalFocus

 

run a program

Shell "<full path to program exe file>", vbNormalFocus

 

Control Panel

Shell "control.exe", vbNormalFocus

[UserXP]

EDIT: Κάτι έγινε παραπάνω

 

 

 

Ανοίγεις τη φόρμα στη VB

 

Tools - Menu Editor

Προσθέτεις νέα μενού (Caption & Name) στο ίδιο επίπεδο με το "Menu". Π.χ. Caption = "Nero", Name = "mnuNero" και Οκ

 

Πάλι στη φόρμα κάνεις click στο μενού που θέλεις και προσθέτεις τον κώδικα που θέλεις

 

'explore c:\

Shell "explorer.exe ""c:\""", vbNormalFocus

 

'run a program

Shell "<full path to program exe file>", vbNormalFocus

 

'Policies

Shell "gpedit.msc", vbNormalFocus

το ίδιο και για άλλα *.msc

 

Control Panel

Shell "control.exe", vbNormalFocus

 

 

 

και μερικά items του control panel

 

' Internet Settings

call Shell("Rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl")

 

' Internet->Security

call Shell("Rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,1")

 

' Printers Folder

call Shell("Rundll32.exe shell32.dll,Control_RunDLL main.cpl @2")

 

' Fonts Folder

call Shell("Rundll32.exe shell32.dll,Control_RunDLL main.cpl @3")

 

' Display->Appearance

call Shell("Rundll32.exe shell32.dll,Control_RunDLL desk.cpl ,2")

 

' Display->ScreenSaver

call Shell("Rundll32.exe shell32.dll,Control_RunDLL desk.cpl ,1")

 

' Display->Settings

call Shell("Rundll32.exe shell32.dll,Control_RunDLL desk.cpl ,3")

 

' Display->Background

call Shell("Rundll32.exe shell32.dll,Control_RunDLL desk.cpl ,5")

[ntg_net]

Καλως θα το κοιταξω..

Αυτα των Win πχ Rundll32.exe shell32.dll,Control_RunDLL desk.cpl

που μπορω να τα βρω ολα ?

υπαρχουν και αλλα πολλα .. .. κρυφα τα εχουν τα win ?

[ntg_net]

ok το βρικα.. ας το δουν και οσοι θελουν..

 

RUNDLL FAQ

 

This FAQ describes how to run Control Panel (and other) tools in Windows from MMB script.

 

Rundll32.exe is used by Windows to launch actions defined in DLLs. One of its capabilities is running Control Panel tools (applets).

Using Rundll32.exe, you can launch the applets from a CPL file, and you can cause the applet to open on a particular page.

 

Basic Script Syntax:

Run("rundll32.exe","shell32.dll,Control_RunDLL filename.cpl")

 

General syntax:

Run("rundll32.exe","shell32.dll,Control_RunDLL filename.cpl,@n,t")

where filename.cpl is the name of one of Control Panel's *.CPL files, n is the zero based number of the applet within the *.CPL file, and t is the number of the tab for multi paged applets.

 

To select a particular applet within the file, append a comma, an @ sign, and the number of the applet.

Launch the keyboard applet, which is the second applet within Main.cpl, you would use:

Run(" rundll32.exe","shell32.dll,Control_RunDLL main.cpl,@1")

 

Some multipage applets are designed so that they can be opened at a particular page. You must specify the applet number (@0 for a single-applet file). Then append a comma and the page number.

This line launches the Display Properties dialog and opens to the Appearance page (the third page; number two ):

Run("rundll32.exe","shell32.dll,Control_RunDLL desk.cpl,@0,2")

 

Control panel tools and applets:

 

Accessibility Options access.cpl

Add New Hardware sysdm.cpl

Add new hardware Add/Remove Programs appwiz.cpl

Date/Time Properties timedate.cpl

Display Properties desk.cpl

FindFast findfast.cpl

Fonts Folder fonts

Internet Properties inetcpl.cpl

Joystick Properties joy.cpl

Keyboard Properties main.cpl keyboard

Microsoft Exchange mlcfg32.cpl

Microsoft Mail Post Office wgpocpl.cpl

Modem Properties modem.cpl

Mouse Properties main.cpl

Multimedia Properties mmsys.cpl

Network Properties netcpl.cpl (In Windows NT 4.0, Network properties is Ncpa.cpl, not Netcpl.cpl)

Password Properties password.cpl

PC Card main.cpl pc card

Power Management (Windows 95) main.cpl power

Power Management (Windows 98) powercfg.cpl

Printers Folder printers

Regional Settings intl.cpl

Scanners and Cameras sticpl.cpl

Sound Properties mmsys.cpl

Sounds System Properties sysdm.cpl

 

Examples

 

Date/time applet, Time Zone tab:

Run("rundll32.exe","shell32.dll,Control_RunDLL TIMEDATE.CPL,@0,1")

Desktop applet, Screensaver tab:

Run("rundll32.exe","shell32.dll,Control_RunDLL DESK.CPL,@0,1")

Network applet, Protocols tab:

Run("rundll32.exe","shell32.dll,Control_RunDLL NCPA.CPL,@0,2")

Network applet, Adapters tab:

Run("rundll32.exe","shell32.dll,Control_RunDLL NCPA.CPL,@0,3")

System applet, Environment tab:

Run("rundll32.exe","shell32.dll,Control_RunDLL SYSDM.CPL,@0,2")

Sound

Run("rundll32.exe","shell32.dll,Control_RunDLL mmsys.cpl")

Joystick

Run("rundll32.exe","shell32.dll,Control_RunDLL joy.cpl")

Users Tool

Run("rundll32.exe","shell32.dll,Control_RunDLL inetcpl.cpl users")

Networks properties, Services tab

Run("rundll32.exe",shell32.dll,Control_RunDLL ncpa.cpl,,1")

 

Other tricks

 

Format Disk

Run("rundll32.exe","shell32.dll,SHFormatDrive")

 

Copy Disk

Run("rundll32.exe","diskcopy.dll,DiskCopyRunDll")

 

Exit Windows

Run("RUNDLL32.EXE","USER.EXE,ExitWindows")

 

Restart Windows

Run("RUNDLL32.EXE","USER.EXE,ExitWindowsExec")

 

Logoff Windows 98 and run Explorer after relogon:

Run("RUNDLL32.EXE",SHELL32.DLL,SHExitWindowsEx 4")

 

Start "Add New Printer" wizard:

Run("RUNDLL32.EXE","SHELL32.DLL,SHHelpShortcuts_RunDLL AddPrinter")

 

Show Windows 9*'s "System setting changed, do you want to reboot now?" dialog

Run("RUNDLL32.EXE","SHELL.DLL,RestartDialog")

 

Open a file with Windows' "Open as" dialog:

Run("RUNDLL32.EXE","SHELL32.DLL,OpenAs_RunDLL filename")

 

Swap your mouse to left handed:

Run("RUNDLL32.EXE","USER.EXE,SwapMouseButton"

Windows NT: Run("RUNDLL32.EXE","USER32.DLL,SwapMouseButton")

 

Start DialUp Network:

Run("RUNDLL32.EXE","RNAUI.DLL,RnaDial exact name of dialer entry")

 

Install ScreenSaver

Run("RUNDLL32.EXE","DESK.CPL,InstallScreenSaver filename.scr")

 

Display the Fonts Folder in Explorer view

Run("RUNDLL32.EXE","shell32.dll,SHHelpShortcuts_RunDLL FontsFolder")

 

Displays the Create New Shortcut dialog.

Run("RUNDLL32.EXE","shell32.dll,Control_RunDLL apwiz.cpl,NewLinkHere path")

 

Displays the Install/Uninstall tab selected

Run("RUNDLL32.EXE","shell32.dll,Control_RunDLL appwiz.cpl,,1")

 

Send the HTML file to the printer

Run("RUNDLL32.EXE","mshtml.dll,PrintHTML htmlfile.html")

 

Displays Internet Properties, General Tab

Run("RUNDLL32.EXE","shell32.dll,Control_RunDLL inetcpl.cpl,,0")

 

Microsoft Exchange Profiles general property page

Run("RUNDLL32.EXE","shell32.dll,Control_RunDLL mlcfg32.cpl")

 

Microsoft Postoffice Workgroup Admin property page

Run("RUNDLL32.EXE","shell32.dll,Control_RunDLL wgpocpl.cpl")

 

Multimedia/Audio property page

Run("RUNDLL32.EXE","shell32.dll,Control_RunDLL mmsys.cpl,,0")

[ntg_net]

Μηπως ξερεις UserXP ή κανεις αλλος τιποτα για αυτο ?

 

A) Αυτα τα 2 θελω να κανω ..

 

http://www.insomnia.gr/vb3/attachment.php?attachmentid=1818&stc=1

want1.JPG

 

http://www.insomnia.gr/vb3/attachment.php?attachmentid=1819&stc=1

want2.JPG

 

Δε περνει τα exe και με βγαζει την παρακατω εικονα.

 

http://www.insomnia.gr/vb3/attachment.php?attachmentid=1814&stc=1

code2.JPG

 

Γ)

Αυτο με βγαζει με το *.msc με το exe ολα οκ..

 

http://www.insomnia.gr/vb3/attachment.php?attachmentid=1815&stc=1

error.JPG

[ntg_net]

Εστω να ξερει καποιος για το Β) του προηγουμενου ερωτηματος..

για το πως θα τρεξει αρχεια οχι εκτελεσιμα(exe) συγκεκριμενα τα αρχεια με

καταληξη *.msc

[UserXP]

Εδώ είναι το sample project με όλα όσα ζητάς

TrayIcon.zip

[ntg_net]

Ευχαριστω παρα πολυ για την βοηθεια..

απλα βιαζομουν να το τελιωσω για να ξεκινισω διαβασμα για την πιστοποιηση... απο ΙΕΚ και ειμαι πολυ ανυπομονος.

Παρολα αυτα μεσα στο διαστημα εως την απαντηση σου

τα βρικα ολα αλλα τα εκανα με διαφορετικο τροπο..

πχ το path των windows το εβαλα κανονικα

c:\windows\system32\file ξερω οτι ειναι λαθος

γιατι μπορει η εγκατασταση να γινει και αλλου.

Τελοςπαντων θα το δω και το δικο σου γιατι ιντερνετ

δεν εχω σπιτι και πηγαινοερχομαι σε Ι-cafe.

 

Και παλι ευχαριστω...

[ntg_net]

UserXP το TrayIcon που εστειλες δεν παιζει , βγαζει αυτο..

 

http://www.insomnia.gr/vb3/attachment.php?attachmentid=1879&stc=1

ntg002.jpg

 

Με εχεις στειλει και κατι αλλα απο τα οποια 2 μονο λειτουεγουσαν ..

γιατι ετσι ?

Πως μπορω να ξερω τι φταει καθε φορα ? απο γνωση , εμπειρια ή υπαρχει

τιποτα για debug ?

[UserXP]

Μέσα στο zip που σου έστειλα υπάρχουν 3 αρχεία:

TrayIcon.vbp

TrayIcon1.frm

IP.bas

 

Κάντα extract σε ένα folder και άνοιξε το project από κει.

 

Για να βρίσκεις τι φταίει, πρέπει να κοιτάς τα μηνύματα από τη VB. Τα compile errors δεν γίνονται debug. Σημαίνουν λάθη πριν ξεκινήσει να τρέχει το πρόγραμμα. Συνήθως είναι γραμματικά λάθη.

Μετά από 3-4 προγράμματα, νομίζω θα έχεις αρκετή εμπειρία και θα καταλαβαίνεις γρήγορα που είναι το λάθος.

Το πρόβλημα που έχεις με την SocketsInitialize (όπως λέει και η VB "Sub or function not defined") είναι ότι πουθενά στο project σου δεν υπάρχει (δεν μπορεί να βρεθεί) η αναφερόμενη sub (κανονικά βρίσκεται στο IP.bas).

 

 

EDIT

Για τα άλλα που σου έστειλα, είναι πιθανόν να λείπουν κάποια αρχεία. Αν θες πες μου τα errors που βγάζει η VB, για να σου τα στείλω.

[ntg_net]

Καλως... βρηκα τη λυση ..

Νεα προβληματα ομως και παλι..

 

1)Κανω κλιλ δεξι στο εικονιδιο στο system tray κατω. Μου ανοιγει τη λιστα αλλα

ανα δεν ανοιξω κατι απο τη λιστα που ανοιγει δεν κλεινει.(οχι τερματισμος)

απλα ας πουμε να παταω στην επιφανεια εργασιας και να μαζευεται η λιστα..

οπως και των windows -> πατας δεξι στην taskbar και με ενα κλικ στην επιφανεια εργασιας φευγει.

Πως θα το κανω ?

 

2) Εχω βαλει μια 2η φορμα (2ο προγραμμα στην ουσια) σε μερικα PC δεν το

ανοιγει και κολλαει ολοκληρη η εφαρμογη . Πως γινεται να κανω το κωδικα

οταν μπλοκαρει η εφαρμογει απλα να το πηδαει..

 

3) Θελω κανω μια νεα εφαρμογη που να δειχνει τα περιεχομενα ενος φακελου

(συγκεκριμενο path) τα οποια ας υποθεσουμε οτι ειναι ολα συντομευσεις των

windows. Tωρα αυτα τα links που φενονται θα ειναι αρχεια *.lnk οποτε οταν

παταω πανω 2πλο κλικ να τρεχει την συντομευση

Ολο αυτο για να κανω ενα lancer (αν υπαρχει ηδη καποια παρομοια εφαρμογη

.. ακουω.)

[UserXP]

1. Αυτό συμβαίνει μόνο όταν τρέχεις το πρόγραμμα μόνο από τη VB. Αν το κάνεις exe και το τρέξεις όλα δουλέυουν όπως θέλεις (και πρέπει).

 

2. Ο ευκολότερος τρόπος να υπερβείς κάποιο λάθος είναι να βάλεις λίγο πριν τον "κρίσιμο" κώδικα την εντολή

On Local Error Resume Next

 

3. Δεν κατάλαβα καλά τι θέλεις. Αν έχεις σε ένα path πολλά links και θέλεις να τα δεις, κάνε αυτό

Shell "explorer.exe " & "<το path που θέλεις>", vbNormalFocus