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

thongkorn

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


มาดูโค้ดกันเถอะ ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
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. 
    
15. Sub SendMessage()
    
16.     On Error GoTo ErrHandler
    
17.    
    
18.     Dim oXML As Object
    
19.     Dim strToken As String
    
20.     Dim strMessage As String
    
21.     Dim strDate As String
    
22.     Dim URL As String
    
23. 
    
24.     '// Line Notify Access Token
    
25.     strToken = "YOUR TOKEN HERE"
    
26.     '// Line Notify
    
27.     URL = "https://notify-api.line.me/api/notify"
    
28.    
    
29.     strMessage = Trim(txtMessage.Text)
    
30.     strDate = Format(Now, "dd/MM/yyyy - hh:mm:ss")
    
31.     '//Line Message
    
32.     strMessage = "message=" & strMessage & vbCrLf & " Date-Time: " & strDate
    
33.     '//
    
34.     Set oXML = CreateObject("Microsoft.XMLHTTP")
    
35.     With oXML
    
36.         '// Line POST Method
    
37.         .Open "POST", URL, 0
    
38.         '// Header
    
39.         .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
40.         .SetRequestHeader "Authorization", "Bearer " & strToken
    
41.         '// Send message
    
42.         .send (strMessage)
    
43.         '// Debug Line
    
44.         'Debug.Print oXML.responseText
    
45.     End With
    
46.    
    
47.     Set oXML = Nothing
    
48.     Exit Sub
    
49.    
    
50. ErrHandler:
    
51.     '// Error
    
52.     MsgBox Err.Number & vbCrLf & Err.Description
    
53. End Sub
    
54. 
    
55. Private Sub cmdSend_Click()
    
56.     If Trim$(txtMessage.Text) = "" Or Len(Trim$(txtMessage.Text)) = 0 Then Exit Sub
    
57.     Call SendMessage
    
58. End Sub
    
59. 
    
60. Private Sub cmdExit_Click()
    
61.     Unload Me
    
62. End Sub
    
63. 
    
64. Private Sub Form_Load()
    
65.     txtMessage.Text = "ทดสอบการส่งข้อความผ่าน Line Notify จากคุณทองก้อน นารีแขยง"
    
66. End Sub
    
67. 
    
68. Private Sub Form_Unload(Cancel As Integer)
    
69.     Set frmLineNotify = Nothing
    
70.     End
    
71. End Sub

คัดลอกไปที่คลิปบอร์ด

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

hot2

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

arun

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

thongkorn

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 ชุดให้เลือกครับ เราอยากได้ตัวไหนก็เลือกเอามาใส่ได้เลย

arun

thongkorn ตอบกลับเมื่อ 2019-2-19 08:12
โค้ด ...

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

paper20

ขอบคุณครับ

dechatorn

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

dechatorn

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

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

dechatorn

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

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

thongkorn

การอัพโหลดรูปโดยตรงจากใน 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
   

คัดลอกไปที่คลิปบอร์ด