Otvaranje sajta u def browseru shell ili shellexecute ?

Otvaranje sajta u def browseru shell ili shellexecute ? 29.10.2009. u 15:22 · pre 207 meseci #1

evo simple koda:

Code:
Private Sub Command1_Click()
Shell ("iexplorer.exe http://google.com")
End Sub

Sada ja bih zeleo kada se klikne na to dugme command_click da se otvori u def browseru 7 sajtova ali u socketu odnosno backgroundu..

nasao sam api code za shellexecute

Code:

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

no trebam pomoc oko gore koda :)

Potpis

;) :) xD :P :S :@ ^^ ;]

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 30.10.2009. u 07:50 · pre 207 meseci #2

Code:

Private 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
Const SW_SHOWNORMAL = 1

Private Sub Form_Load()

ShellExecute Me.hwnd, vbNullString, "www.google.com", vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Potpis

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 31.10.2009. u 16:34 · pre 206 meseci #3

Resio sam jos pre taj kod sa Call funkcijom tj ShellExecute, ali sada imam problem da t oradi u backgroundu odnosno da radi preko socketa ako moze pomoc? :D

Potpis

;) :) xD :P :S :@ ^^ ;]

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 01.11.2009. u 21:18 · pre 206 meseci #4

Moraces mi prvo objasniti sta ti ovo znaci:

Citat:

da radi u backgroundu odnosno da radi preko socketa

Potpis

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 02.11.2009. u 10:17 · pre 206 meseci #5

OK ajd za kasnije da ostavimo bg iliti socket :D
Sad hocu nesto drugo sto moze da ide preko browsera..

Evo mog koda

Code:
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private 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
Const SW_SHOWNORMAL = 1
Const SE_ERR_NOASSOC = 31
Const sOperation As String = "open"     ' Constants for shell operations
Const sRun As String = "RUNDLL32.EXE"
Const sParameters As String = "shell32.dll,OpenAs_RunDLL "
Private Function shelldoc(sfile As String)
    Dim sPath As String, RetVal As Long, _
    lRet As Long
    lRet = ShellExecute(GetDesktopWindow(), sOperation, sfile, _
                        vbNullString, vbNullString, SW_SHOWNORMAL)
    If lRet = SE_ERR_NOASSOC Then ' No association exists
        sPath = Space(255)
        RetVal = GetSystemDirectory(sPath, 255)
        sPath = Left$(sPath, RetVal)

        lRet = ShellExecute(GetDesktopWindow(), "open", sRun, _
                            sParameters + sfile, sPath, SW_SHOWNORMAL)
    End If
End Function
Private Sub Command1_Click()
    Call shelldoc("http://www.google.com")
End Sub

I sad bih ja hteo da dodam nesto tipa kada napravim text box i npr neko ukuca tu maps i klikne na command_click da mu otvara www.google.com/maps ako me razumes? Znaci da dodaje to sto je on napisao u Text Box-u kad klikne na Command1 verovatno ide sa nekom varijablom ali nisam uspeo resiti. Hvala na odgovorima :)

Potpis

;) :) xD :P :S :@ ^^ ;]

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 02.11.2009. u 10:24 · pre 206 meseci #6

Pa samo otvori u Browseru

"http://www.google.com/" + tvoj_text_box.text (value) (posto je to string, jel tako a sintaksa kako vec ide u VB-u... zaboravio sam)

recimo:

Private Sub Command1_Click()
Call shelldoc("http://www.google.com/" + Tvoj_text_box.Text)
End Sub

(ne znam sad napamet VB, samo vidi sintaksu za sabiranje stringova jel ovako ili kako vec)

Potpis

oligofrenolog

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 02.11.2009. u 11:30 · pre 206 meseci #7

Probao sam ovako

Code:
Call shelldoc("http://www.google.com" + Text1_Change.Text)

Ali ne ide, a zar to .Text nije za VB.NET ?

Potpis

;) :) xD :P :S :@ ^^ ;]

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 02.11.2009. u 15:25 · pre 206 meseci #8

Ono sto ukucas u textbox je Text property te kontrole.

znaci TextBox1.Text

(vrednost ovoga ti je ono sto se nalazi ukucano tamo)

i fali ti jedna kosa crta posle "...google.com/"

Sta ti TACNO javlja kao gresku? Ovo je napamet sve, posto
u VB-u nisam radio bog zna koliko, mada ako ono shelldoc
ne prima argument tipa string, onda ovo ne moze ovako bas :)

I vidi tacno koja je sintaksa za spajanje stringova u VB, mozda
nije ovo sa "..." + "..." - sto sam ja stavio vec nesto drugo...

Potpis

oligofrenolog

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 02.11.2009. u 19:27 · pre 206 meseci #9

Trazio sam komandu i nasao ovo MergeStrings("12345", "ABCDE") = "1A2B3C4D5E" za koju je potrebna klasa itd to je MergeStrings e sad to nije to verovatno errot je 424 evo izgled

Code:
Call shelldoc("http://www.google.com/" + TextBox1.Text)

Mada nisam siguran da ide TextBox1.Text jer ja kada kliknem na textbox1 izadje mi ovo u formi/code-u

Code:
Private Sub Text1_Change()

End Sub

Iz ovoga se moj TextBox zove Text1_Change.Text ?

Potpis

;) :) xD :P :S :@ ^^ ;]

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 02.11.2009. u 20:00 · pre 206 meseci #10

Nisam bas u toku svega ali string se spaja sa "&"

znaci umesto:

Code:
Call shelldoc("http://www.google.com/" + TextBox1.Text)

trebalo bi ici :

Code:
Call shelldoc("http://www.google.com/" & TextBox1.Text)

Javi sta si napravio!!!!

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 02.11.2009. u 20:34 · pre 206 meseci #11

Sad kaze 424 a kod sam stavio ovako

Code:
Call shelldoc("http://www.google.com/" & Text1_Change.Text)

Potpis

;) :) xD :P :S :@ ^^ ;]

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 02.11.2009. u 20:51 · pre 206 meseci #12

ne znaci nam nista broj greske, napisi nam konkretan tekst greske, probaj ovo usput

Code:
Call shelldoc("http://www.google.com/" & Text1.Text)

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 02.11.2009. u 21:00 · pre 206 meseci #13

Citat:

Aleksandar Vasic: ne znaci nam nista broj greske, napisi nam konkretan tekst greske, probaj ovo usput

Code:
Call shelldoc("http://www.google.com/" & Text1.Text)

Konachno! HVALA :) znao sam da je tako nesto text1.text textbox1.text jer sam pre radio u VB-u pa zaboravio.. evo ga sad radi :}
a ja sam isao ovo

Code:
Call shelldoc("http://www.google.com" & "/" & Text1.Text)

Ali onako kako si ti rekao je lakse ja sam samo dodao & , &..
Jos samo jedno instant pitanje kako ide npr kada neko klikne dugme da se pojavi u Text2.Text tekst pokrenuli ste google.com ?
ide nesto sa Then komandom?
Call shelldoc("http://www.google.com" & "/" & Text1.Text) Then
Text2.Text = "Google.com pokrenut?"

Potpis

;) :) xD :P :S :@ ^^ ;]

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 02.11.2009. u 21:15 · pre 206 meseci #14

Ovo je sve isto:

Code:
Call shelldoc("http://www.google.com/" & Text1.Text)

Call shelldoc("http://www.google.com" & "/" & Text1.Text)

Call shelldoc("http://www.google.com" + "/" + Text1.Text)

Ti si pogrijesio jer si napisao ovako:

Code:
Call shelldoc("http://www.google.com/" & Text1_Change.Text)

i dobio si gresku da objekat 'Text1_Change' ne postoji sto je tacno jer to je naziv dogadjaja Change od objekta Text1.

Potpis

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 02.11.2009. u 22:47 · pre 206 meseci #15

Tacno tako, kliktanjem na textbox na formi si samo
kreirao proceduru za Event - Change (promena u tekst polju),
dakle ta procedura se se "okida" kada dodje do bilo kakve promene u tom tekst polju,
odnosno onda ce se izvrsiti sve sto u tu proceduru stavis.

Potpis

oligofrenolog

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 03.11.2009. u 19:09 · pre 206 meseci #16

Ok to sam resio a kako ide ono za Then komandu? kontam da bi islo nesto ovako:

Code:
        Call shelldoc("http://www.google.com" & "/" & "Text1.Text")
    If shelldoc = ("http://www.google.com" & "/" & "Text1.Text") Then
    Text2.Text = "blabla"

Znam da je ovo gore pogresno pa bi molio pomoc za ispravku istog.

a shelldoc znam da nije vec treba Command1.Click = samo ne znam opet tu syntaxu za Command1 kao sto je za Text1 .TEXT tako ja ne znam za ovo.. i gde to da nadjem?

Potpis

;) :) xD :P :S :@ ^^ ;]

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 03.11.2009. u 21:16 · pre 206 meseci #17

Pa ako hoces nakon ovaranja browser-a da ispises u drugom textBox-u taj tekst onda ides:

Code:
Text2.Text = "blabla"

Ne treba ti tu 'If'
'If' sluzi za ispitivanje nekog stanja, pa bi imalo smisla kada bi recimo nakon otvaranja browser-a i ucitavanja stranice, provjerio da li se stranica stvarno ucitala onda bi bilo:

Code:

If stranicaSeUcitala = true then
Text2.Text = "blabla"
end if

Potpis

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 03.11.2009. u 21:53 · pre 206 meseci #18

Pa kako da namestim taj Text2.Text ne mogu ga tek tako ubaciti mora da ima neka syntaxa pre toga?

Potpis

;) :) xD :P :S :@ ^^ ;]

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 04.11.2009. u 02:43 · pre 206 meseci #19

Pa to ti je sintaksa

Code:
Text2.Text = "blabla"

Samo umesto blabla staviš šta hoćeš da se upiše u textbox. Naravno pre toga moraš da dodaš textbox kontrolu sa imenom Text2 na formu.

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Re: Otvaranje sajta u def browseru shell ili shellexecute ? 04.11.2009. u 15:55 · pre 206 meseci #20

@Slobodan_Radosavljevic - ne bi bilo lose da za pocetak prodjes dobro
OSNOVE Visual Basic-a ,uz neku knjigu ili prirucnik.

Evo sad vidim, imas lepu tom temu u ovom podforumu sa tutorijalima i objasnjenjima, pa iscitaj to.

Potpis

oligofrenolog

Forum kao aplikacija na telefonu

Srodne teme