1. Tải bản cài đặt AutoIT mới nhất

    Chào Khách. Nếu bạn mới tham gia và chưa cài đặt AutoIT.
    Vui lòng vào topic trên để tải bản AutoIT mới nhất nhé
    Dismiss Notice

  2. Quy định và nội quy

    Chào Khách. Vui lòng đọc kỹ nội quy và quy định của diễn đàn
    Để tránh bị ban một cách đáng tiếc nhé!
    Dismiss Notice

  3. Hướng dẫn chèn mã AutoIT trong diễn đàn

    Chào Khách. Vui lòng xem qua bài viết này
    Để biết cách chèn mã AutoIT trong diễn đàn bạn nhé :)
    Dismiss Notice
Tải AutoIT Nội quy H.dẫn chèn mã AutoIT

Source Network Adapter Info

Thảo luận trong 'Chia sẻ mã nguồn' bắt đầu bởi VIP, 18/4/16.

  1. VIP

    VIP Thành viên mới
      • 3/6

    Tham gia ngày:
    7/10/15
    Bài viết:
    7
    Đã được thích:
    11
    Tính năng:
    • Hiển thị thông tin Card mạng.
    • Dễ dàng sao chép thông tin, để sao chep chỉ cần bấm vào dòng muốn sao chép .
    • Hỗ trợ xuất thông tin ra tập tin (định dạng INI).
    • Thông báo kết nối, mất kết nối.
    Tập tin EXE và mã nguồn: Tải file đính kèm!
     

    Các file đính kèm:

    Chỉnh sửa cuối: 20/4/16
    VIP, 18/4/16
    #1
    kamsamita1, nguyenthanh, Toàn Nguyễn and 1 other person like this.
  2. VIP

    VIP Thành viên mới
      • 3/6

    Tham gia ngày:
    7/10/15
    Bài viết:
    7
    Đã được thích:
    11
    Ảnh chụp màn hình:
    [​IMG]
     
    VIP, 18/4/16
    #2
    kamsamita1 thích bài này.
  3. namphilong87

    namphilong87 Thành viên mới
      • 1/6

    Tham gia ngày:
    26/10/16
    Bài viết:
    1
    Đã được thích:
    1
    File bị lổi rồi bạn ơi
     
    namphilong87, 26/10/16
    #3
    kamsamita1 thích bài này.
  4. Tungtata

    Tungtata Tà tà mà sống ~ Thành viên BQT Administrator
      • 93/113

    Tham gia ngày:
    25/8/15
    Bài viết:
    289
    Đã được thích:
    924
    Nơi ở:
    Hà Nội
    bạn thử file này nhé
    Nguồn: Dao Van Trong
    [email protected]
     

    Các file đính kèm:

    Tungtata, 27/10/16
    #4
    kamsamita1 thích bài này.
  5. mqluus

    mqluus Thành viên mới
      • 3/6

    Tham gia ngày:
    26/11/16
    Bài viết:
    2
    Đã được thích:
    2
    Cho mình hỏi:
    Có cách nào để show hết Network như soft kia nhưng thêm chức năng enable 1 cái này và disable các cái còn lại được không.
     
    mqluus, 26/11/16
    #5
    kamsamita1 thích bài này.
  6. Tungtata

    Tungtata Tà tà mà sống ~ Thành viên BQT Administrator
      • 93/113

    Tham gia ngày:
    25/8/15
    Bài viết:
    289
    Đã được thích:
    924
    Nơi ở:
    Hà Nội
    tham khảo

    Mã (AutoIt):

    ; Disable and Enable a Network card using 'Shell.Application'
    ;
    ; See also: http://blog.mvpcn.net/icuc88/articles/244.aspx
    ;
    ; To do: Rewrite this into a UDF. Parameters: $oLanConnection and $bEnabled


    $oLanConnection = "Local Area Connection"; Change this to the name of the adapter to be disabled !
    $bEnable = true             ; Change this to 'false' to DISABLE the network adapter

    if @OSType<>"WIN32_NT" then
        Msgbox(0,"","This script requires Windows 2000 or higher.")
        exit
    endif


    if @OSVersion="WIN_2000" then
        $strFolderName = "Network and Dial-up Connections"
    else
        $strFolderName = "Network Connections"; Windows XP
    endif

    Select
        Case StringInStr("0409,0809,0c09,1009,1409,1809,1c09,2009,_
                        2409,2809,2c09,3009,3409"    , @OSLang) ; English (United States)
           $strEnableVerb  = "En&able"
           $strDisableVerb = "Disa&ble"

    ; Add here the correct Verbs for your Operating System Language
    EndSelect


    ;Virtual folder containing icons for the Control Panel applications. (value = 3)
    Const $ssfCONTROLS = 3

    $ShellApp = ObjCreate("Shell.Application")
    $oControlPanel = $shellApp.Namespace($ssfCONTROLS)


    ; Find 'Network connections' control panel item
    $oNetConnections=""

    For $FolderItem in $oControlPanel.Items
        If $FolderItem.Name = $strFolderName then
            $oNetConnections = $FolderItem.GetFolder
            Exitloop
        Endif
    Next

         
    If not IsObj($oNetConnections) Then
        MsgBox(0,"Error","Couldn't find " & $strFolderName & " folder."
        Exit
    EndIf
           

    For $FolderItem In $oNetConnections.Items
        If StringLower($FolderItem.Name) = StringLower($oLanConnection) Then
            $oLanConnection = $FolderItem
            Exitloop
        EndIf
    Next

    If not IsObj($oLanConnection) Then
         MsgBox(0,"Error","Couldn't find " & $oLanConnection & " Item."
         Exit
    EndIf

    $oEnableVerb=""
    $oDisableVerb=""

    For $Verb In $oLanConnection.Verbs
     If $Verb.Name = $strEnableVerb Then
       $oEnableVerb = $Verb
     EndIf
     If $Verb.Name = $strDisableVerb Then
       $oDisableVerb = $Verb
     EndIf
    Next

    If $bEnable then
     If IsObj($oEnableVerb) Then $oEnableVerb.DoIt  ; Enable network card
    Endif

    If not $bEnable then
     If IsObj($oDisableVerb) Then $oDisableVerb.DoIt; Disable network card
    EndIf

    Sleep(1000)
     
    Nguồn: autoscript
     
    Tungtata, 26/11/16
    #6
    kamsamita1 and mqluus like this.
  7. JK. KyTs

    JK. KyTs I'm Hiếu Võ Văn
      • 28/34

    Tham gia ngày:
    7/9/15
    Bài viết:
    20
    Đã được thích:
    162
    Nơi ở:
    Quang Nam
    Chương trình này hay quá bạn (y)
     
    JK. KyTs, 26/11/16
    #7
    kamsamita1 thích bài này.
  8. mqluus

    mqluus Thành viên mới
      • 3/6

    Tham gia ngày:
    26/11/16
    Bài viết:
    2
    Đã được thích:
    2
    Có cách nào tự tìm tất cả các tên adapter tồn tại không. Vì nếu điền theo tên mặc định thì không bao quát. Nhiều khi adapter phát qua mobile tên nó sẽ thay đổi.
     
    mqluus, 27/11/16
    #8
    kamsamita1 thích bài này.
  9. Tungtata

    Tungtata Tà tà mà sống ~ Thành viên BQT Administrator
      • 93/113

    Tham gia ngày:
    25/8/15
    Bài viết:
    289
    Đã được thích:
    924
    Nơi ở:
    Hà Nội
    cái đó thì bạn kết hợp với mã nguồn của chủ thớt nhé
     
    Tungtata, 27/11/16
    #9
    kamsamita1 thích bài này.

Chia sẻ trang này

Đang tải...