Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Uzucapiune teren intravilan

Recomandare aparat foto

Ariston "Genus One+" 24kw...

unde ii pot arunca?
 Problema respingere memorie supli...

Posibila virusare

Material opac developat filme

Caramida de sticla la exterior
 Geam cuptor crapat

Un canal de AI de comedie pe YT

Update intr-un tabel

[Controlul] vremii si a vremurilor
 Blocuri din placi prefabricate

Achiziție mașina de fam...

[unde] cozonaci traditionali

Jandarmii in fondul forestier
 

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

Bun venit pe Forumul Softpedia!

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