ข่าวประชาสัมพันธ์

มาร่วมเป็นกำลังใจให้เว็บด้วยการสมัครสมาชิกวีไอพี ~~ เลือกปีที่ท่านต้องการได้โดยไม่ต้องเรียงปี ~~ ปีละ 350 บาท สมัคร 2 ปีลดเหลือ 600 บาท ~~ มีไลน์กลุ่ม VIP จำนวนหลายร้อยท่าน เอาไว้ปรึกษางานซ่อม ~~ เข้าถึงข้อมูลด้านเทคนิค ข้อมูลเชิงลึกมากมาย.....


ผู้เขียน หัวข้อ: อีกครั้งกับการเขียนคำสั่งแบตไฟล์  (อ่าน 338 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ Prog Man

  • Administrator
  • ช่างยนต์มือหนึ่ง
  • *
  • เจ้าของกระทู้
  • Joined: ก.พ. 2567
  • กระทู้: 105
  • สมาชิกลำดับที่ : 25791
    • อีเมล์
อีกครั้งกับการเขียนคำสั่งแบตไฟล์
« เมื่อ: 26 มิถุนายน 2567, 08:17:16 »
  • ขึ้นบน
  • ลงล่าง
  • คือผมต้องการ shortcut ที่วางอยู่ desktop พอดับเบิ้ลคลิกแล้ว โปรแกรม cmd.exe ทำงาน พร้อมกับ run คำสั่งเอง พอ run เสร็จ ก็ปิดโปรแกรมเองครับ
    ทำให้ run แบบ admin ด้วยนะครับ หรือไม่ก็ขอให้ เปิดโปรแกรม แล้ว run คำสั่งก็พอครับ

    อันนี้คือคำสั่งครับ netsh wlan start hostednetwork

    ตรงนี้มีภาพ! แต่ท่านจะมองไม่เห็น , ท่านต้อง  สมัครสมาชิก หรือ ลงชื่อเข้าระบบ


    พอ run เสร็จแล้วก็อยากจะให้ปิดโปรแกรม ออกไปเลย (อันนี้ไม่ได้ก็ไม่เป็นไรครับ)

    ตรงนี้มีภาพ! แต่ท่านจะมองไม่เห็น , ท่านต้อง  สมัครสมาชิก หรือ ลงชื่อเข้าระบบ


       มาจากที่นี่... https://pantip.com/topic/33354125
    « แก้ไขครั้งสุดท้าย: 26 มิถุนายน 2567, 08:25:12 โดย Prog Man »

    ออฟไลน์ Prog Man

    • Administrator
    • ช่างยนต์มือหนึ่ง
    • *
    • เจ้าของกระทู้
    • Joined: ก.พ. 2567
    • กระทู้: 105
    • สมาชิกลำดับที่ : 25791
      • อีเมล์
    อีกครั้งกับการเขียนคำสั่งแบตไฟล์
    « ตอบกลับ #1 เมื่อ: 26 มิถุนายน 2567, 08:23:50 »
  • ขึ้นบน
  • ลงล่าง
  • แบบที่ 1
    1. สร้าง text file
    2. พิมพ์
      netsh wlan start hostednetwork
    3. save ชื่ออะไรก็ได้ นามสกุล .bat  เช่น  start.bat
    4. สร้าง shortcut หรือ เอาไฟล์ไปวางที่หน้าจอ desktop

    แบบที่ 2

    1. คลิกขวาหน้าจอ เลือกสร้าง shortcut
    2. พิมพ์   netsh wlan start hostednetwork  ลงบนช่อง  type the location of item   กด next
    3. ตั้งชื่อ  กด next

    ออฟไลน์ Prog Man

    • Administrator
    • ช่างยนต์มือหนึ่ง
    • *
    • เจ้าของกระทู้
    • Joined: ก.พ. 2567
    • กระทู้: 105
    • สมาชิกลำดับที่ : 25791
      • อีเมล์
    อีกครั้งกับการเขียนคำสั่งแบตไฟล์
    « ตอบกลับ #2 เมื่อ: 26 มิถุนายน 2567, 08:35:47 »
  • ขึ้นบน
  • ลงล่าง
  •     อยากสร้างช๊อตคัทไว้บน desktop ต้องเขียนโค้ดอย่างไร
    https://www.thai-access.com/suphap.php?topic_id=1236
    (ใช้บอร์ด smf 2.0.15 สวยดี)

    ผมขออนุญาติถามคำถามต่อนะครับ แล้วเราจะนำ Short Cut ที่สร้างขึ้น Send to Desktop ได้อย่างไร
    โดยการใช้ Code พร้อมทั้งกำหนดรูปภาพของ Short Cut ด้วยครับ ขอบพระคุณมากครับ

    อ้างถึง
    ผมได้ลองไปทดสอบการใช้งานจริงปรากฎว่าสามารถไปสร้างบน Desktop ได้จริงๆ หลักการก็คือ ใช้ Code ตามที่อาจารย์แนะนำ ก็จะสามารถสร้าง ShortCut ขึ้นมาได้ตามตำแหน่งที่เราระบุตาม Code ด้านบน จากนั้นใช้คำสั่ง Name......as........ เพื่อนำ ShortCut นั้นไปเก็บที่ Folder Desktop ของ Windows ซึ่งแต่ละ OS จะอยู่ไม่เหมือนกัน เช่น Windows98 มักสร้างไว้ที่ C:\windows\Desktop เป็นต้น เพียงเท่านี้ ShortCut ก็จะไปปรากฎบนหน้าจอ Windows ครับ
    « แก้ไขครั้งสุดท้าย: 26 มิถุนายน 2567, 08:43:47 โดย Prog Man »

    อีกครั้งกับการเขียนคำสั่งแบตไฟล์
    « ตอบกลับ #2 เมื่อ: 26 มิถุนายน 2567, 08:35:47 »


    ออฟไลน์ Prog Man

    • Administrator
    • ช่างยนต์มือหนึ่ง
    • *
    • เจ้าของกระทู้
    • Joined: ก.พ. 2567
    • กระทู้: 105
    • สมาชิกลำดับที่ : 25791
      • อีเมล์
    อีกครั้งกับการเขียนคำสั่งแบตไฟล์
    « ตอบกลับ #3 เมื่อ: 26 มิถุนายน 2567, 09:01:08 »
  • ขึ้นบน
  • ลงล่าง
  • อ้างถึง
    เปลี่ยน icon Shortcut บน Dasktop
    เรียนถาม อ.สุภาพ และท่านผู้รู้ครับ
    ผมมีคำถาม ซึ่งไม่ทราบว่า จะมีทางเป็นไปได้หรือไม่
    มีวิธีไหนบ้างครับที่เราสามารถ เปลี่ยน icon Shortcut บน Dasktop แบบอัตโนมัติ
    โดยเรากำหนด path ของ icon และ ชื่อของ icon ไว้ก่อน จากนั้นเราสร้างปุ่มขึ้นมาแล้วเขียนโค้ดให้เปลี่ยนแปลงรูป
    icon Shortcut บน Dasktop ทันที โดยที่เราไม่ต้องคลิกขวาเลือก คุณสมบัติ ของShortcut เพื่อทำการเปลี่ยน icon
    ไม่ทราบว่ามีทางจะเป็นไปได้หรือไม่ครับ
    ช่วยแนะนำด้วยครับผม ขอบคุณครับ

    Function fCreateShortcutOnDesktop(strFullFilePathName As String) _
    As Long

    Dim WSHShell As Object
    Dim WSHShortcut As Object
    Dim strDesktopPath As String
    Dim strFileName As String

    Dim strPath As String
    On Error GoTo fCreateShortcutOnDesktop_Err
    ' Create a Windows Shell Object
    Set WSHShell = CreateObject("WScript.Shell") 'New IWshRuntimeLibrary.IWshShell_Class
    ' Get the file's name and path...
    strFileName = Dir(strFullFilePathName)
    strPath = Left(strFullFilePathName, _
    Len(strFullFilePathName) - Len(strFileName))

    ' Make sure file exists
    If Not Len(strFileName) = 0 Then

    ' Read desktop path using WshSpecialFolders object
    strDesktopPath = WSHShell.SpecialFolders.Item("Desktop")

    ' Create a shortcut object on the desktop
    Set WSHShortcut = WSHShell.CreateShortcut _
    (strDesktopPath & "\" & strFileName & ".lnk")

    ' Set shortcut object properties and save it
    With WSHShortcut
    .TargetPath = WSHShell. _
    ExpandEnvironmentStrings(strFullFilePathName)
    .WorkingDirectory = WSHShell. _
    ExpandEnvironmentStrings(strPath)
    .WindowStyle = 4
    .IconLocation = WSHShell.ExpandEnvironmentStrings(SysCmd(acSysCmdAccessDir) _
    & "\msaccess.exe ,0") 'I get hung on this line and the msaccess.exe use to be excel.exe
    .Save
    End With

    fCreateShortcutOnDesktop = 1
    Else
    fCreateShortcutOnDesktop = 0
    End If
    Continue:
    ' Tidy Up
    Set WSHShell = Nothing
    Exit Function

    fCreateShortcutOnDesktop_Err:
    fCreateShortcutOnDesktop = -1
    Resume Continue

    End Function
    +++++++++++++++++++++++++++++++++
    จากโค้ดที่ได้มา ไม่ทราบว่าเวลานำไปใช้ จะต้องทำอย่างไรครับ
    ผมใช้ win xp MS Access xp
    รบกวนอีกครั้งครับ
    ก็เรียกฟังก์ชัน โดยใส่ชื่อไฟล์ mdb ที่ต้องการลงไป พร้อมกับ Path ด้วยครับ

    เช่น จะสร้าง Shortcut ให้ไฟล์ปัจจุบันที่เปิดอยู่ ก็ใช้

    fCreateShortcutOnDesktop(CurrentDb.Name)

    ขึ้นอยู่กับว่าจะเรียกฟังก์ชันนี้ตอนไหน ก็นำไปใช้ได้เลยครับ

    อีกครั้งกับการเขียนคำสั่งแบตไฟล์
    « ตอบกลับ #3 เมื่อ: 26 มิถุนายน 2567, 09:01:08 »