Software Phần mềm tìm kiếm trên youtube

Đây là phần mềm tìm kiếm trên youtube, chỉ cấn nhập dữ liệu vào khung và đợi khoảng 20s sau là xong. Cái này mình làm cho mẹ mình dễ mở phim, mẹ mình mù tịt về các kiến thức tin học, mở link lên hay là mở mấy cái đánh dấu trang cũng khó khăn. Mình share mong được góp ý.

Link File:
bản Fix bỏ qua thời gian chờ(và bao gồm bản bên dưới):
https://drive.google.com/open?id=0B0p4sUwMj8rcQ0lVNzVSMnFpN3M

bản Fix lỗi WinXP và Win Vista:
https://drive.google.com/open?id=0B0p4sUwMj8rcMXNCLVozV2JvUHM


Code:

Mã (AutoIt):

#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <array.au3>

#Region ### START Koda GUI section ### Form=C:\Program Files\koda\Forms\phim1.kxf
$Form1 = GUICreate("Xem phim", 331, 116, 801, 357)
GUISetFont(10, 400, 0, "Arial")
$Label_nhap = GUICtrlCreateLabel("Nhap ten phim, ten dien vien hay ten dao dien:", 8, 8, 272, 20)
$Input_Nhap = GUICtrlCreateInput("", 8, 32, 297, 24, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetTip(-1, "Nhap ten phim, ten dien vien hay ten dao dien")
$Button_Mo_Phim = GUICtrlCreateButton("Mo phim", 72, 64, 185, 41)
Dim $Form_AccelTable[1][2] = [["{ENTER}", $Button_Mo_Phim]]
GUISetAccelerators($Form_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Func Thoat()
   Exit
EndFunc

HotKeySet("{ESC}","Thoat")

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Thoat()

      Case $Button_Mo_Phim
         GUICtrlSetState($Button_Mo_Phim,$GUI_DISABLE)
         $string = GuiCtrlRead($Input_Nhap)
         If $string = "" Then
            MsgBox(BitOr($MB_OK,$MB_ICONWARNING),"Canh bao","Ban chua nhap ten phim")
            GUICtrlSetState($Button_Mo_Phim,$GUI_ENABLE)
            ContinueLoop(1)
         EndIf
         $string = StringRegExpReplace($string,"\%","%25")
         $string = StringRegExpReplace($string,"\@","%40")
         $string = StringRegExpReplace($string,"\#","%23")
         $string = StringRegExpReplace($string,"\$","%24")
         $string = StringRegExpReplace($string,"\&","%26")
         $string = StringRegExpReplace($string,"\+","%2B")
         $string = StringRegExpReplace($string,"\=","%3D")
         $string = StringRegExpReplace($string,"\:","%3A")
         $string = StringRegExpReplace($string,"\;","%3B")
         $string = StringRegExpReplace($string,"\,","%2C")
         $string = StringRegExpReplace($string,"\?","%3F")
         $string = StringRegExpReplace($string,"\/","%2F")

         $string = "https://www.youtube.com/results?search_query="&$String
;~          MsgBox(0,'',$string)
         $string = StringRegExpReplace($string," ","+")
;~          MsgBox(0,'',$string)
         WinActivate("GoogleChrome")
         if (StringRegExp(@OSVersion,"Win_XP",0)) Then
            $process = "C:\Documents and Settings\"&@UserName&"\Local Settings\Application Data\Google\Chrome"
         ElseIf (@OSVersion = "WIN_VISTA") Then
            $process = "C:\Users\"&@UserName&"\AppDataLocal\Google\Chrome"
         Else
            $process = "C:\Program Files (x86)\Google\Application\chrome.exe"
            If (not (FileExists($process))) Then
               $process = "c:\Program Files (x86)\Google\Chrome\Application\chrome.exe";
            Endif
         Endif
;~         BlockInput($BI_DISABLE )
         $process
         ShellExecute($process,$string)
;~         BlockInput($BI_ENABLE )
         GUICtrlSetState($Button_Mo_Phim,$GUI_ENABLE)
    EndSwitch
WEnd

Hướng dẫn sử dụng:
1/ Mở lên

2/Nhập tên phim và nhấn mở phim

3/ Chờ 20s sau là xong:v

 

Cảm ơn anh đã góp ý

 

bác @Huân Hoàng chỉ bảo hay quá
cảm ơn bác thớt về phần mềm nhé, hay lắm

 

nice. thanks for share

 

Mình góp ý chỗ Chrome, bạn chỉ cần chạy theo dạng cmd là được ko cần Send thế kia đâu
ShellExecute("chrome","https://www.youtube.com/results?search_query=hài+hoài+linh+2016+nhỏ+ơi")

Vậy là xong

 

Nhờ bạn mà mình giải quyết được vấn đề là trong lúc chờ người dùng người ta nóng ruột bấm lung tung, rồi nó không hiện lên theo ý muốn Lúc đầu mình định dùng InputBlock() mà giờ thì khỏi cần cảm ơn bạn

 

Mà sao bạn ko làm thành 1 APP luôn ? Cho chạy film trên APP luôn

 

Cái đó mình chưa biết làm Để nghiên cứu thêm

 

Cái này thêm Gui nữa là thành app cmn rồi
mà cái này vẫn còn phụ thuộc máy có trình duyệt hay ko
Đó là ý kiến của mình
còn bạn làm đc thế là tốt rồi

 

Phiên bản tiếp theo mình sẽ thiết kế thêm phần chọn file trình duyệt Vậy thì khỏi cần phải lệ thuộc vào google chrome Bữa giờ cái đoạn chương trình đó chạy lỗi (do file cài đặt google chrome ở cái máy đó ở chỗ khác :'( ) Bữa nào rảnh mình code tiếp Cảm ơn bạn đã góp ý

 

hay quá ạ

 

Vậy thế bạn tương tác với regedit ấy lấy dữ liệu reg phần trình duyệt mặc định ấy
Nên ko cần phụ thuộc máy có chorme hay ko mà lấy cái trình duyệt mặc định luôn