Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Alt "Utilizator nou" pe T...

ULBS INFORMATICA

Index preturi

Boxa membrana tweeter infundata
 Am nevoie de poze cu un curcubeu

Whisky for Mac

Xiaomi 14 Gpay

Izolare zid exterior de scandura
 Dezinstalare drivere W11 23H3

Recomandare masina de spalat fiab...

BSOD din cauza Intel Audio DSP dr...

De ce sunt oamenii nostalgici
 Cum vand casa fara factura Hidroe...

Scor FICO minim

Tonometru compensat CAS?

polita RCA ONLINE
 

Cum lansez un executabil in VB6..si nu cu shell

- - - - -
  • Please log in to reply
6 replies to this topic

#1
IPaddress

IPaddress

    Junior Member

  • Grup: Members
  • Posts: 71
  • Înscris: 08.12.2005
Am un program pe un calculator pe care il lansez in executie cu o intervata creata in VB6 de pe un alt calculator din retea, dar vreau ca acel program sa se execute pe calculatorul pe care acesta este rezident (programul cu pricina pur si simplu citeste pe o interfata seriala o serie de elemente de pe un dispozitiv)

Comanda din VB shell...nu ma ajuta....aveti ceva idei?


Multumesc...

#2
RAZ

RAZ

    Member

  • Grup: Members
  • Posts: 1,227
  • Înscris: 15.10.2004
Incearca cu PsExec (SysInternals)

#3
IPaddress

IPaddress

    Junior Member

  • Grup: Members
  • Posts: 71
  • Înscris: 08.12.2005
Merci, am sa incerc....

Mi s-a spus ca ar exista o comanda VB sau COM sau ...care ar oferi aceasta posibilitate fara a implica a 3-rd party...eu am tot cautat dar nu am gasit de asta am si apelat ...  :)

#4
Hato0be

Hato0be

    Junior Member

  • Grup: Members
  • Posts: 49
  • Înscris: 05.07.2006
Ai incercat sa implementezi functia API, ShellExecuteA ?

 ' declararea functiei din biblioteca windows

Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd As Long, _
   ByVal lpOperation As String, _
   ByVal lpFile As String, _
   ByVal lpParameters As String, _
   ByVal lpDirectory As String, _
   ByVal nShowCmd As Long) As Long

'  Implementarea functiei
'
Public Function RunProgram(FilePath As String) As Long
  Dim RetVal As Long
  On Error Resume Next
  RetVal = ShellExecute(0, "open", FilePath, "", "", SW_SHOWMAXIMIZED)
  RunProgram = RetVal
End Function

Edited by Hato0be, 11 August 2006 - 13:05.


#5
IPaddress

IPaddress

    Junior Member

  • Grup: Members
  • Posts: 71
  • Înscris: 08.12.2005
Nu am incercat..dar voi incerca

Intrebarea mea este...ShellExecute ruleaza asincron? Eu am nevoie de o functie care sa lucreze sincron, la modul sa-mi termine executia programului si dupa sa continue executia procedurii

Multumesc

#6
RAZ

RAZ

    Member

  • Grup: Members
  • Posts: 1,227
  • Înscris: 15.10.2004

View PostHato0be, on Aug 11 2006, 13:04, said:

Ai incercat sa implementezi functia API, ShellExecuteA ?
IPadress vrea sa ruleze aplicatia pe un alt system din retea, ShellExecuteA face cam acelasi lucru cu shell-ul din vb:

View PostIPaddress, on Jul 28 2006, 13:17, said:

de pe un alt calculator din retea, dar vreau ca acel program sa se execute pe calculatorul pe care acesta este rezident
@IPaddress ShellExecute ruleaza asyncron.

#7
IPaddress

IPaddress

    Junior Member

  • Grup: Members
  • Posts: 71
  • Înscris: 08.12.2005
:) scuze pentru postul haotic, sa recapitulam

- Nu am testat functia ShellExecute, dar voi face asta luni si din cate am inteles este o functie asincrona

-Intrebare: Exista o functie sincrona in VB care sa faca acelasi lucru cu Shell? Respectiv sa imi ruleze un program extern din cadrum unei proceduri, cu a carei executie sa nu se continue pana la finalizarea programului lansat?

Anunturi

Chirurgia spinală minim invazivă Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate