˹á
 úҹ
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  ͧͧ
 
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 Ẻ¹
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 ԡèҡ
  Դ...
  DoodeeHosting
  Ѻ͡Ẻ Ѳ䫵
  Freeware
  ѵҤɳ
  ª١
  ʶԵԼ
 Ŵ
 Ң
 дҹʹ
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
 
 дҹҹ
 ԧ
 ǡѺ
 ѵҤɳ
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
 (BerDee)
(Android)
駩غ
駩غ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ԴͺʹФѺ...
2015-07-29 13:35:58
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:33:54
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:32:51
  ԴͺФѺ
ҹ...

2014-01-06 12:47:38
  ѧҤ͹ ͧ֡ͧ...
2013-07-06 01:04:37
  ʹ觢ͺࢵҤҤҡ͹ФѺ...
2013-03-24 18:54:20
  ѧդѺҹԴѺ 08...
2012-12-16 19:18:14
  ʹ㨤 Դ 0905076277...
2012-11-12 11:07:46
  Ѻ礹ѡ֡ͺѷ
...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  ͧ gotoxy ѧ...
2017-08-28 11:45:52
  ͧҧա u...
2017-08-27 20:09:01
  #define GLUT_DISABLE_ATEXIT...
2017-08-27 12:53:17
  դԻ͹ ...
2017-08-27 10:50:02
  Ѻ ͹ matlab ¹ matlab...
2017-06-03 16:27:23
  ੾зҧҴ ͧҢ...
2017-05-25 16:18:08
  ͧ˹Ѻ os ...
2017-05-25 16:12:47
  ¹ php curl ...
2017-04-20 01:04:20
  ¹ ...
2017-03-27 12:50:54
  ʧҷ ͧѾഷ...
2017-03-27 12:37:20
  Homework comment
  ͺسҡѺ...
2017-08-16 18:27:25
  ͧ ͧ ѧ ^^...
2017-04-18 18:40:46
  ͧ ͧ ѧ ^^...
2017-04-18 18:37:54
  á flowchart ѹ...
2017-04-18 17:43:33
  ҡ flowchart ...
2017-04-18 16:25:29
  kungking ӶäѺ ?...
2017-03-18 23:28:36
  ¹ʴͧ...
2017-03-06 10:56:25
  鴷ӧҹẺ ...
2016-09-06 01:00:12
  ҡҺ鴹Ѻѧ...
2016-09-05 09:31:27
  ͧ֡¹...
2016-04-22 00:47:49
  Article comment
  [b] , ...
2017-10-20 10:05:06
  [b]5 ...
2017-10-18 08:19:17
  - ...
2017-10-18 07:17:11
  [b] ...
2017-10-18 06:07:31
  [b] 96 ...
2017-10-18 06:05:28
  - ...
2017-10-18 05:49:56
  code ͧ VB ú...
2017-09-28 16:50:02
  ҨѺ ͧ
...

2017-07-11 09:59:35
  ö͡Ѻ anycast ...
2017-07-05 10:12:35
  Ѻ س "Դ" ͧ֡...
2016-06-18 15:21:09
  9Mcode comment
  ҡ...
2014-02-21 08:52:19

Link Exchange

ѵҤɳ
Statistics of Sourcecode in Thailand
 
 eMbedded Visual Basic Tutorial  

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

 eMbedded Visual Basic
 
 

6 ¡͡ HTML ҹ Winsock

 

ҧ 繡õԴ͢͢Ũҡ䫴 ·ӡͧ ͡ HTML ҡ䫴 Ѵ觢ѧ ҹõԴ ¤͹ Winsock 㹡ҹԧ 繷ͧ Pocket PC ͧسͧա͡Ѻ кԹ ҹҧٻẺҧ㹻Ѩغѹ Wireless, Bluetooth, GPRS, EDGE з ºѺػó air card ҧ

Ѻ㹵ҧ ʴǹͧþѲ Emulator Шйҧ繵ǵԴ (ҹ ҧԴ ) 价ͺͧԧ

DownloadǹŴ

͡Ẻ˹ҵ

  • ӡԴ eVB ҹҧ Start->Programs->Microsoft eMbedded Tools->eMbedded Visual Basic 3.0
  • ԡ͡ File->New Project ͡ Ctrl+N лҡ˹ҵҧ ӡ͡ Windows CE for Pocket PC 2002 Ǥԡ OK

ٻʴ ͡ҧ Project
ٻʴ ͡ҧ Project

  • ӡҧ ͹ŵҧ 觻Сͺ Textbox 3 ѹ CommandButton 1 ѹ ѧٻ

ٻʴ ҧ͹ŵҧ麹
ٻʴ ҧ͹ŵҧ麹

  • ԡ͡͹е зӡ¹ Property ҧҹҧ
Control Property Value
CommandButton Name cmdRequest
  Caption Go
TextBox1 Name txtURL
  Text www.sourcecode.in.th
TextBox2 Name txtFile
  Text /
TextBox3 Name txtOutput
  Text  
  ScrollBars 2 - vbVertical
  • šá˹ Property ѧٻ

ٻʴ ŷҡá˹ Property Ѻ
ٻʴ ŷҡá˹ Property Ѻ

Winsock ਤ

㹡¹ҹҧ͢ 繨еͧ͹ŷ Winsock 㹡õԴ 觼ҹ 觨ж١㹡¹ ѡɳ Client/Server 㹵ҧ 繡ù Winsock ҵԴѧ Web Server 觤 ͧ͡ HTML ѧ Server ѺŢͧ HTML Ѻʴ 㹪ͧ TextBox

  • ӡäԡ͡ Project->Components...
  • ӡäԡ͡ Microsoft CE WinSock Control 3.0

ٻʴ ͡¡âͧ͹ winsock
ٻʴ ͡¡âͧ͹ winsock

  • ҡ鹤ԡ OK ׹ѹ
  • лҡ͹Һ Toolbars ѧٻ

ٻʴ ͹ Winsock ź
ٻʴ ͹ Winsock ź

  • ӡôѺŤԡ ͹ Winsock ҧ麹 Form ѧٻ

ٻʴ ͹ Winsock  Form ҹ
ٻʴ ͹ Winsock Form ҹ

鴡÷ӧҹ

  • ӡôѺŤԡ cmdRequest 躹 лҡ˹ҵҧ Code View
  • ӡû͹ ҧ
Private Sub cmdRequest_Click()
Dim s
On Error Resume Next
WinSock1.Close
WinSock1.RemoteHost = txtURL.Text
WinSock1.RemotePort = 80
WinSock1.Connect
txtOutput.Text = ""
If Err.Number <> 0 Then
MsgBox "Error:" & Err.Number & vbCrLf & Err.Description
End If

s = "GET " & txtFile.Text & " HTTP/1.0 " & vbCrLf & vbCrLf
WinSock1.SendData s
If Err.Number <> 0 Then
MsgBox "Error:" & Err.Number & vbCrLf & Err.Description
End If
End Sub

ҡ鴨繡ûСȵ s 㹡纤觷Ѻ Server ҡ On Error Resume Next ӧҹ դԴҴԴ ѴҨзӡõѴõԴͧ͢ Winsock1 ͹˹ʹ Close зӡá˹ URL ͧ Server ·ҧ Ţ Port 80 (80 Ţ ҹѺ Web Server) Ƿӡѧ Server ʹ Connect

Ҩзӡźͤʴ㹤͹ txtOutput ͡ ǵǨͺҢͧŢͼԴҴҹҧ Err.Number բͼԴҴʴ˹ҵҧ §ҹͼԴҴ͡ʴ 鹵͹Ҩзӡҧ觢 㹤觨繡ͧ ˹㹤͹ txtFile ;Ǩա觤 ѧͧ Server ¡ʹ SendData ҹҧ͹ Winsock1 ա͡Ѻ Server ش¨ if ͵ǨͺͼԴҴ ѧ觤 ա

ѧҡ觤ѧ Server 繷º ҧ Server зӡõͺѺѧ Winsock1 鹵͹ 繡ѺŷͺѺ ʴ բ鹵͹ѧ

  • Դ˹ҵҧ Code View зӡ͡¡ ѧٻ

ٻʴ ҧ sub ͧ Winsock Ѻŷ
ٻʴ ҧ sub ͧ Winsock Ѻŷ

  • ӡû͹ ҧ ѺŨҡ Server ʴ㹤͹ txtOutput
Private Sub WinSock1_DataArrival(ByVal bytesTotal As Long)
Dim sRecieveDate
On Error Resume Next
WinSock1.GetData sRecieveDate
If Err.Number <> 0 Then
MsgBox "Error:" & Err.Number & vbCrLf & Err.Description
Else
txtOutput.Text = sRecieveDate
WinSock1.Close
End If
End Sub

÷ӧҹͧ ҡûСȵ 红ŷҨҡ Server ѧ Ҩ˹ͧ Ѻ sRecieveDate 繵Ẻ Variant 觨öѺҵҧ ҡҵẺ ҡ鹨ʹ GetData ͧ͹ Winsock1 Ѻҷ 㹵 sRecieveDate ش¡ǨͺͼԴҴ ҡԴͼԴҴ зӡʴŨҡ sRecieveDate txtOutPut 觻ԴõԴ͡Ѻ Server ͧ Winsock1 ҹҧʹ Close

㹡÷ͺسеͧӡ Թ öԴ͡Ѻ Web Server 㹷 www.sourcecode.in.th Ҥسա Թ Ҩöͺҹҧ õԴ IIS (IIS ͷ¡ѹ Internet Information Server WebServer ͧ Microsoft version ͧҡѺ Windows XP) Apache Web Server Դͧͧ ӡ¹ ͤ㹪ͧá localhost 127.0.0.1 зӡäԡ Go ͷͺ

  • ӡ÷ͺ ¡ F5 سͺԡ Go

ٻʴ ÷ͺ÷ӧҹͧ ¤ԡ Go
ٻʴ ÷ͺ÷ӧҹͧ ¤ԡ Go

Ѻҹͧ Pocket PC ҨӡҧǵԴ㹺 ҧԴ ͷӡ÷ͺ ÷ӧҹԧͧ еǨͺäԡ͡ Microsoft CE WinSock Control 3.0 㹡кǹҧԴ 蹹 öӧҹҧ١ͧ

鷴ͺ÷ӧҹ ԴзͺѺͧ Pocket PC ͧͧ ŴѧٻѺ

ٻʴ š÷ӧҹͧ ͧԧ
ٻʴ š÷ӧҹͧ ͧԧ

 

BACK

µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI)
µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI) ´дѺ 4K
ŧ Mini DisplayPort to HDMI Adapter ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
µٿѧ Ъ Ѻ iPhone 7  7 Plus
µٿѧ Ъ Ѻ iPhone 7 7 Plus
ŧҡ USB-C Type  USB 3.1 Ѻ MacBook
ŧҡ USB-C Type USB 3.1 Ѻ MacBook
䢤ǧѺͧ Macbook Air/Pro
䢤ǧ Ѻͧ Macbook Air/Pro (300ҷ)
HDMI  3 ͡  1
HDMI 3 ͡ 1 (350ҷ)
Ի͹¹
¹¹ͷ
¹¹͹´
¹¹
¹¹ վʾ
¹¹
¹ҹԹء
¹¹Թ⿹
¹¹Ϊ ʤ
9M Blog ͧ͡ ¹ͧ
ԡ ҾѺԭ
OrmSin.com: ˹ѧͧҹ--չ (country crafts)
ѵҤɳ
 
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
ẺǨ
Freelance ѺѲ

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

ʧǹԢԷ Ѵ͡ ӫ Ѵŧ ٻẺ Ѻ͹حҵѡɳѡ
Ţ¹ҳԪ硷͹ԡҡзǧҳԪ: 7100503002000
Copyright 2001 SourceCode.in.th