ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 2193|ตอบกลับ: 2

[VB6] แจกฟรีโค้ดการแจ้งเตือนผ่าน Line หรือที่เรียกกันว่า Line Notify

[คัดลอกลิงก์]

213

กระทู้

301

โพสต์

2403

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2403




จากตอนที่แล้ว [VB.NET] แจกฟรีโค้ดการแจ้งเตือนผ่าน Line หรือที่เรียกกันว่า Line Notify ประเดี๋ยวมิตรรักแฟนคลับสาย VB6 จะน้อยอกน้อยใจ เอะอะอะไรก็มีแต่โค้ด VB.NET คราวนี้แอดมินก็ขอจัดโค้ดให้กับสาวก VB6 ได้รับชมกันครับ ... อันที่จริงหากเราเข้าใจในเรื่องของ POST Method ที่ใช้งานบนเว็บ ก็จะสามารถทำออกมาได้ไม่ยากเลยครับพี่น้องหมู่เฮาชุมชนคนรักภาษาเบสิค ... UHU


มาดูโค้ดกันเถอะ ...
  1. ' / --------------------------------------------------------------------------------
  2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
  3. ' / eMail : [email protected]
  4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
  5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
  6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
  7. ' / Purpose: Line Notify with Visual Basic 6
  8. ' / Microsoft Visual Basic 6.0 (SP6)
  9. ' /
  10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
  11. ' / You can modify and/or distribute without to inform the developer.
  12. ' / --------------------------------------------------------------------------------
  13. Option Explicit

  14. Sub SendMessage()
  15.     On Error GoTo ErrHandler
  16.    
  17.     Dim oXML As Object
  18.     Dim strToken As String
  19.     Dim strMessage As String
  20.     Dim strDate As String
  21.     Dim URL As String

  22.     '// Line Notify Access Token
  23.     strToken = "YOUR TOKEN HERE"
  24.     '// Line Notify
  25.     URL = "https://notify-api.line.me/api/notify"
  26.    
  27.     strMessage = Trim(txtMessage.Text)
  28.     strDate = Format(Now, "dd/MM/yyyy - hh:mm:ss")
  29.     '//Line Message
  30.     strMessage = "message=" & strMessage & vbCrLf & " Date-Time: " & strDate
  31.     '//
  32.     Set oXML = CreateObject("Microsoft.XMLHTTP")
  33.     With oXML
  34.         '// Line POST Method
  35.         .Open "POST", URL, 0
  36.         '// Header
  37.         .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  38.         .SetRequestHeader "Authorization", "Bearer " & strToken
  39.         '// Send message
  40.         .send (strMessage)
  41.         '// Debug Line
  42.         'Debug.Print oXML.responseText
  43.     End With
  44.    
  45.     Set oXML = Nothing
  46.     Exit Sub
  47.    
  48. ErrHandler:
  49.     '// Error
  50.     MsgBox Err.Number & vbCrLf & Err.Description
  51. End Sub

  52. Private Sub cmdSend_Click()
  53.     If Trim$(txtMessage.Text) = "" Or Len(Trim$(txtMessage.Text)) = 0 Then Exit Sub
  54.     Call SendMessage
  55. End Sub

  56. Private Sub cmdExit_Click()
  57.     Unload Me
  58. End Sub

  59. Private Sub Form_Load()
  60.     txtMessage.Text = "ทดสอบการส่งข้อความผ่าน Line Notify จากคุณทองก้อน นารีแขยง"
  61. End Sub

  62. Private Sub Form_Unload(Cancel As Integer)
  63.     Set frmLineNotify = Nothing
  64.     End
  65. End Sub
คัดลอกไปที่คลิปบอร์ด


ดาวน์โหลดโค้ดฉบับเต็ม VB6 ได้ที่นี่ ...

ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

x
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

0

กระทู้

7

โพสต์

32

เครดิต

Newbie

Rank: 1

เครดิต
32
โพสต์ 2018-9-26 16:10:50 จากอุปกรณ์พกพา | ดูโพสต์ทั้งหมด

ขอบคุณมากครับเฮีย

0

กระทู้

2

โพสต์

22

เครดิต

Newbie

Rank: 1

เครดิต
22
โพสต์ 2019-2-18 14:12:51 | ดูโพสต์ทั้งหมด

อยากให้ส่ง Striker ได้ด้วยครับ  ลองทำแล้วไม่ได้เลย

213

กระทู้

301

โพสต์

2403

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2403
 เจ้าของ| โพสต์ 2019-2-19 08:12:36 | ดูโพสต์ทั้งหมด

arun ตอบกลับเมื่อ 2019-2-18 14:12
อยากให้ส่ง Striker ได้ด้วยครับ  ลองทำแล้วไม่ได้เลย


โค้ด ...
  1. '//Line Message
  2.     strMessage = "message=" & strMessage & vbCrLf & "Date-Time: " & strDate
  3.     strMessage = strMessage & "&stickerPackageId=1" & "&stickerId=109"
คัดลอกไปที่คลิปบอร์ด


ตาราง Stikcer ... จะมีอยู่ 2 ชุดให้เลือกครับ เราอยากได้ตัวไหนก็เลือกเอามาใส่ได้เลย

สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

0

กระทู้

2

โพสต์

22

เครดิต

Newbie

Rank: 1

เครดิต
22
โพสต์ 2019-2-21 12:09:13 | ดูโพสต์ทั้งหมด

แก้ไขครั้งสุดท้ายโดย arun เมื่อ 2019-2-21 12:15

   ขอบคุณครับ  ทำหลายรอบแล้วไม่ได้  พอเห็นตัวอย่างอาจารย์  สุดยอดเลยครับ  ไม่รู้ใช้ สัญญาลักษณ์อะไรเป็นตัวเชื่อม ใช้ " , : =  ไม่ผ่าน 555

0

กระทู้

5

โพสต์

28

เครดิต

Newbie

Rank: 1

เครดิต
28
โพสต์ 2019-6-25 15:08:02 | ดูโพสต์ทั้งหมด

ขอบคุณครับ

0

กระทู้

3

โพสต์

12

เครดิต

Newbie

Rank: 1

เครดิต
12
โพสต์ 2019-10-18 13:38:43 | ดูโพสต์ทั้งหมด

ขอบคุณสำหรับโคดดีนะครับ
แล้วถ้าเราจะส่งรูป เข้าไปแทนข้อความได้ไหมครับ รบกวนแนะนำตัวอย่างพอได้ไหมครับ

0

กระทู้

3

โพสต์

12

เครดิต

Newbie

Rank: 1

เครดิต
12
โพสต์ 2019-10-18 14:43:29 | ดูโพสต์ทั้งหมด

แก้ไขครั้งสุดท้ายโดย dechatorn เมื่อ 2019-10-18 15:19

    strMessage = "message=" & strMessage
    strMessage = strMessage & "imageFile=1" & "&C:\temp\file1.jpeg"

ผมลองอันนี้แล้ว ไม่ผ่าน ได้โปรดแนะนำทีครับ

0

กระทู้

3

โพสต์

12

เครดิต

Newbie

Rank: 1

เครดิต
12
โพสต์ 2019-10-21 09:44:59 | ดูโพสต์ทั้งหมด

แก้ยังไง ก็ส่งไม่ผ่าน
strMessage = Trim(txtMessage.Text)
    strDate = Format(Now, "dd/MM/yyyy - hh:mm:ss")

  
    strMessage = "message=" & strMessage & "&imageFile=C:\temp\file1.jpg"
   

213

กระทู้

301

โพสต์

2403

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2403
 เจ้าของ| โพสต์ 2019-10-22 13:11:47 | ดูโพสต์ทั้งหมด


การอัพโหลดรูปโดยตรงจากใน VB6/VB.NET ไม่น่าจะทำได้น่ะครับ ต้องอัพโหลดขึ้น Web Server ก่อน แล้วค่อยเอาลิ้งค์มาใช้งานตามรูปแบบของโค้ดตัวอย่างของผม
  1.     Dim PictureUrl As String
  2.     PictureUrl = "http://www.thongkorn.com/LiverpoolLogo.png"
  3.     strMessage = strMessage & "&imageThumbnail=" & PictureUrl & "&imageFullsize=" & PictureUrl
คัดลอกไปที่คลิปบอร์ด


สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-1-20 00:06 , Processed in 0.348143 second(s), 5 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้