[es] - Promo program pisan u VB6

igorpet

Član broj: 18898
Poruke: 553
*.nasamreza.com.

+46 Profil

^{21.09.2007. u 00:23 - pre 202 meseci}

Sta bi ovaj kod u praksi trebao da radi? Ja ne mogu da proverim jer nemam prstup ASP serveru.

Code:
VB6 Post example using ASP to extract the form value that has been posted

Please Wait

I am using VB6 and WinHTTP. I couldn't get the VB POST example to work and I found that I needed
to set the HTTP verb to POST not PUT and that the header needs to be set to "application/x-www-form-urlencoded"

So my example code is:

sub httpPost()

Dim HttpReq As New WinHttpRequest
HttpReq.Open "POST", "http://localhost/test.asp", False

HttpReq.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
HttpReq.Send "fld1234=Rabbits"

Debug.Print HttpReq.ResponseText

end sub

with test.asp:

<html>
<head>
</head>
<body>

Value posted was: <%= request.form("fld1234") %>

</body>
</html>

The Send data needs URLEncoding and there are plenty of examples about of code to do this.

I used Netmon (which is a lot easier than I imagined) and a remote host to identify what
was going wrong with the post comparing it with a post that worked in IE6.

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: Promo program pisan u VB6

^{21.09.2007. u 01:23 - pre 202 meseci}

Nisam uspeo da nadjem ni jedan primer za PUT. Trebalo bi da je slicno kao kod GET - da imas PUT url, pa eventualn jos neke header-e kao sto su mime i sl. onda jedan prazan red pa sadrzaj fajla koji upload-ujes. Ali nisam siguran.

Inace, za "simulaciju" (zapravo nije simalcija, nego je to - to :)) popunjavanja web formi se koristi post (moze i get, ali nije preporucljivo). Taj tvoj kod radi otprilike isto sto i browser kada popunis formular i submit-ujes u html fajlu:

Code:

<html>
  <head><title>test post</title></head>
  <body>
    <form metod="post" action="http://localhost/test.asp">
      <input type="text" name="fld1234" />
      <input type="submit" />
    </form>
  </body>
</html>

i pri tome u polje upises Rabbits.

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

igorpet

Član broj: 18898
Poruke: 553
*.nasamreza.com.

+46 Profil

Re: Promo program pisan u VB6

^{21.09.2007. u 10:01 - pre 202 meseci}

Hvala Shadowed na odgovorima i pojasnjenjima.

Ajde, ko ima pristup ASP serveru i neku postavljenu formu neka proba da li se moze popuniti na ovaj nacin forma iz VB-a, i da li se podaci upisuju regularno u bazu. I javite rezultate i zapazanja.

I da li bi ovo radilo samo na ASP serverima ili moze i na PHP-u.

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: Promo program pisan u VB6

^{21.09.2007. u 10:54 - pre 202 meseci}

ASP server je u stvari IIS server i mozes ga imati na svom kompu. Ako ti nije instaliran ides u Add/Remove programs i tamo ga nadjes (trebace ti instalacioni CD za windows). A imas i besplatne asp hostinge (brinkster na primer).

Odgovor na temu

igorpet

Član broj: 18898
Poruke: 553
*.blueisp.co.yu.

+46 Profil

Re: Promo program pisan u VB6

^{21.09.2007. u 12:32 - pre 202 meseci}

Citat:

Shadowed: ASP server je u stvari IIS server i mozes ga imati na svom kompu. Ako ti nije instaliran ides u Add/Remove programs i tamo ga nadjes (trebace ti instalacioni CD za windows). A imas i besplatne asp hostinge (brinkster na primer).

Hvala na informacijama. Mislio sam da neko ko vec ima postavljenu formu i pristup bazi da proveri da li ovo radi.
Dosta sam pozaboravljao ASP, pa reko ako neko vec ima sve odradjeno od ASP-a da samo proveri kako radi ovo u VB-u.

Odgovor na temu

mally

Član broj: 130495
Poruke: 42
*.ptt.yu.

Sajt: www.xmedia.rs

Profil

Re: Promo program pisan u VB6

^{22.09.2007. u 11:55 - pre 202 meseci}

da se nadovezem na temu winhttp...kako npr. ako imam 2 fajla na netu da ih ucitam u recimo,dve labele?

Igrice Za Decu /// Preko 1700 besplatnih igrica
http://www.intgames.com

Odgovor na temu

igorpet

Član broj: 18898
Poruke: 553
*.blueisp.co.yu.

+46 Profil

Re: Promo program pisan u VB6

^{22.09.2007. u 21:52 - pre 202 meseci}

Mislis da 2 razlicita tekstualna fajla ucitas u 2 labele? Ako je to, onda isto, npr.

Kad kliknes na Command2

Code:
Private Sub Command2_Click()

MousePointer = vbHourglass

    WinHttpReq.Open "GET", _
      "http://3dvizal.tripod.com/braca.htm", _
      False

On Error Resume Next
WinHttpReq.Send
s = WinHttpReq.ResponseText

Text2.Text = s

MousePointer = vbDefault

End Sub

Kad kliknes na Command3

Code:
Private Sub Command3_Click()
    WinHttpReq.Open "GET", _
      "http://3dvizal.tripod.com/poruka.txt", _
      False

    On Error Resume Next
     WinHttpReq.Send
    s2 = WinHttpReq.ResponseText

    Text4.Text = s2
End Sub

Ako sam razumeo pitanje dobro?!

Odgovor na temu

mally

Član broj: 130495
Poruke: 42
*.ptt.yu.

Sajt: www.xmedia.rs

Profil

Re: Promo program pisan u VB6

^{23.09.2007. u 20:05 - pre 202 meseci}

Dobro si razumeo pitanje, to je to sto mi je trebalo...cak je i jednostavnije nego sto sam mislio.

Igrice Za Decu /// Preko 1700 besplatnih igrica
http://www.intgames.com

Odgovor na temu

mally

Član broj: 130495
Poruke: 42
*.ptt.yu.

Sajt: www.xmedia.rs

Profil

Re: Promo program pisan u VB6

^{23.09.2007. u 20:12 - pre 202 meseci}

kad smo vec kod MousePointer = vbDefault kako da dobijem u MousePointer standardni kursor za linkove? nemam MSDN pa moram da pitam i takve gluposti,nazalost.

Igrice Za Decu /// Preko 1700 besplatnih igrica
http://www.intgames.com

Odgovor na temu

igorpet

Član broj: 18898
Poruke: 553
*.nasamreza.com.

+46 Profil

Re: Promo program pisan u VB6

^{23.09.2007. u 23:46 - pre 202 meseci}

Citat:

mally: ...cak je i jednostavnije nego sto sam mislio.

Teoretski sest linija koda, prakticno par linija vise. U principu vrlo prosto, samo kada znas u kom pravcu da ides i gledas.

Citat:

mally: kad smo vec kod MousePointer = vbDefault kako da dobijem u MousePointer standardni kursor za linkove? nemam MSDN pa moram da pitam i takve gluposti,nazalost.

Iz MSDN:

Constant Value Description
vbDefault 0 (Default) Shape determined by the object.
vbArrow 1 Arrow.
vbCrosshair 2 Cross (crosshair pointer).
vbIbeam 3 I beam.
vbIconPointer 4 Icon (small square within a square).
vbSizePointer 5 Size (four-pointed arrow pointing north, south, east, and west).
vbSizeNESW 6 Size NE SW (double arrow pointing northeast and southwest).
vbSizeNS 7 Size N S (double arrow pointing north and south).
vbSizeNWSE 8 Size NW SE (double arrow pointing northwest and southeast).
vbSizeWE 9 Size W E (double arrow pointing west and east).
vbUpArrow 10 Up Arrow.
vbHourglass 11 Hourglass (wait).
vbNoDrop 12 No Drop.
vbArrowHourglass 13 Arrow and hourglass.
vbArrowQuestion 14 Arrow and question mark.
vbSizeAll 15 Size all.
vbCustom 99 Custom icon specified by the MouseIcon property.

Ako zelis da dobijes kursor sa "rucicom" moras da podesis da MousePointer bude vbCustom a zatim da ucitas ikonicu koja ima izgled "rucice". Npr.

Code:
object.MousePointer = 99
object.MouseIcon = LoadPicture(App.Path & "\ruka1.ico")

Nema predefinisanog kursora za linkove.

Odgovor na temu

mally

Član broj: 130495
Poruke: 42
*.ptt.yu.

Sajt: www.xmedia.rs

Profil

Re: Promo program pisan u VB6

^{24.09.2007. u 08:04 - pre 202 meseci}

znam da moze tako ali problem mi je zato sto ne mogu nigde da nadjem tu ikonicu, nasao sam malo drugaciju ali necu da stavljam nju a hteo bi da je upotrebim za linkove u programu kojim je zapoet ovaj topic.., ja sam mislio da "ruka" mozda postoji definisana u VB pa rek'o da pitam. hvala u svakom slucaju.

Igrice Za Decu /// Preko 1700 besplatnih igrica
http://www.intgames.com

Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.inecco.net.

Sajt: www.nsc.ba

+4 Profil

Re: Promo program pisan u VB6

^{24.09.2007. u 09:12 - pre 202 meseci}

Je li to ta ruka?

I ♥ ♀

Ovaj post je zlata vrijedan!

Prikačeni fajlovi

Hand Cursor.rar - 0.23k

Odgovor na temu