Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Hur skall jag göra för att detta skall fungera?

Postades av 2002-06-04 21:09:00 - John Lundberg, i forum visual basic - allmänt, Tråden har 2 Kommentarer och lästs av 502 personer

Han får data inpostad, skall verifiera denna mot en server och skicka tillbaka det servern säger till en asp sida....

Hela koden:
<code>
'Form1 med en winsock control som heter "anslut"

Dim skicka As String
Dim svar As String
Dim connected As Integer


Private Sub anslut_Connect()
connected = 1
End Sub

Private Sub anslut_DataArrival(ByVal bytesTotal As Long)
connected = 0
anslut.GetData svar
End Sub


'Class module:

Dim skicka As String
Dim svar As String
Dim connected As Integer



Function anslut(ByVal skicka As String)
connected = 0
Form1.anslut.Connect "192.168.0.4", 614
anslut = payit(skicka)

End Function

Function payit(ByVal strPay As String)

Do Until connected = 1
DoEvents
Debug.Print "Väntar på anslutning..."
Loop

Form1.anslut.SendData strPay

Do Until connected = 0
Debug.Print "Väntar på svar..."
Loop

payit = svar

End Function

'ASP siten:

<%

Set link = Server.CreateObject("link.anslut")
transaktion = "test"

Response.write link.anslut(transaktion)

Set link = Nothing


%>

</code>


Svara

Sv: Hur skall jag göra för att detta skall fungera?

Postades av 2002-06-05 00:12:35 - Andreas Hillqvist

Lite väl overkill att använda ett formulär och en winsocet kontroll. Hittade en länk till en komponent skapad i VB som kan anvädas från vbscript:

http://www.15seconds.com/issue/990408.htm


Svara

Sv: Hur skall jag göra för att detta skall fungera?

Postades av 2002-06-05 00:28:12 - John Lundberg

kanon! tackar...


// Jompa


Svara

Nyligen

  • 17:54 Vegastars New Zealand
  • 16:56 Verde Casino Danmark
  • 13:54 Vegastars: Top Australian Online C
  • 21:28 Chicken Road Casino Game
  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 971
27 965
271 783
3 480
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies