Tutorials Vbook v0.1-Thủ Thuật UDS part 190

Chia sẻ: Asdasdqwewq Asdasdsadaeq | Ngày: | Loại File: PDF | Số trang:6

0
22
lượt xem
3
download

Tutorials Vbook v0.1-Thủ Thuật UDS part 190

Mô tả tài liệu
  Download Vui lòng tải xuống để xem tài liệu đầy đủ

Tham khảo tài liệu 'tutorials vbook v0.1-thủ thuật uds part 190', công nghệ thông tin, cơ sở dữ liệu phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả

Chủ đề:
Lưu

Nội dung Text: Tutorials Vbook v0.1-Thủ Thuật UDS part 190

  1. Okie - tôi vào 1 thư mục Game & Film - click vào 1 ảnh - chọn Server của nó ( 1 hay 2 ) - tôi chọn 1 - okie đợi ảnh load --> click chuột phải vào ảnh ta lấy được link sau trong phần Properties: http://anonym.to/?http://www.boyis.com/html/show.php?DS=1&id=4191 DS=1 chứng tỏ link của Server 1 - nếu DS=2 là bạn đã chọn Server 2 Sau đó nhìn lên tôi thấy số trang của mục này là 128 trang - nhập thử 110 vào đó và ấn Go thế là đi đến gần cuối --> thấy số thứ tự giảm dần --> Okie chứng tỏ id=4191 là số "cao nhất" và giảm dần cho tới 1 ( 01 ) Tôi gõ thử id=một số bất kì nhỏ hơn 4191 vào đó và add cái link này vào IDM, add thử gần chục lần thấy lần nào cũng okie - vậy là chắc ăn rồi --> những gì mình nghĩ là đúng Bây giờ bạn chỉ cần lập 1 cái list kiểu như sau ( dạng .txt ): http://anonym.to/?http://www.boyis.com/html/show.php?DS=1&id=4191 http://anonym.to/?http://www.boyis.com/html/show.php?DS=1&id=4190 ................... .................. http://anonym.to/?http://www.boyis.com/html/show.php?DS=1&id=02 http://anonym.to/?http://www.boyis.com/html/show.php?DS=1&id=01 rồi bạn add nó vào IDM và chờ down -------------------------------------------------------------------------------------------------- Nếu bạn chưa biết lập sao cho nhanh hãy tham khảo cách của tui: Tui lập 1 cái list là: =01 =02 ..... =99 Sau đó copy ra các file khác ( 9 file khác ) Với file copy thứ nhất dùng lệnh Replace để thay thế = thành =1 là bạn đã có list của dãy số: =101 =102 ...... =199 Cứ làm như vậy - 1 lúc sau bạn đã có list từ =01 đến tận =999 Vậy là tôi lập xong cái List có số thứ tự là: =01 =02 ..... =999
  2. Gọi là list1000.txt Cái này cho vào 1 file .txt Và lập tiếp 1 cái list khác ( gọi là list2000.txt) =1000 =1001 ..... =1999 =2000 Sau khi đã có list2000.txt tôi sẽ copy nó ra nhều bản và lần lượt đặt tên là list3000.txt, list4000.txt ....đến tầm list8000.txt là ổn rồi Sau đó trong các file : VD list3000.txt tôi dùng lệnh Replace all để thay thế =1 thành = 2 rồi save lại --> mục đích là gì ? --> chính là để tạo ra 1 chuỗi số từ 2001 đến 3000, bạn làn tương tự với 5 cái list4000.txt --> list8000.txt còn lại . Okie Tiếp đó vào mỗi file lại dùng lệnh Replace all để thay thế dấu bằng (=) bằng cái đường dẫn: http://anonym.to/?http://www.boyis.com/html/show.php?DS=1&id= tức là ta sẽ có dãy link sau: http://anonym.to/?http://www.boyis.com/html/show.php?DS=1&id=01 http://anonym.to/?http://www.boyis.com/html/show.php?DS=1&id=02 .... http://anonym.to/?http://www.boyis.com/html/show.php?DS=1&id=999 trong file list2000.txt sẽ có các link như sau: http://anonym.to/?http://www.boyis.com/html/show.php?DS=1&id=1000 http://anonym.to/?http://www.boyis.com/html/show.php?DS=1&id=1001 ..... http://anonym.to/?http://www.boyis.com/html/show.php?DS=1&id=1999 cứ như thế là ta đã có link của 4191 ảnh trong mục này . Bây giờ chỉ cần add nó vào IDM và chờ đợi - trong 1h bạn có thể down được vài ngàn ảnh ở đó và chỉ trong 1 buổi chiều là boyis.com đã "nằm gọn trong lòng bàn tay" của bạn. Nếu bạn biết lập trình ( VD PHP chẳng hạn ) có lẽ việc lập list sẽ nhanh hơn chút đỉnh Ngoài ra với các trang web mà có cho link ảnh trực tiếp đến file thì các bạn cũng làm tương tự như này . Với thủ thuật này bạn có thể "thịt" đến 95% các trang down ảnh wallpaper hiện nay trên mạng với mức độ "làm cỏ" sạch sẽ chỉ trong vài tiếng đồng hồ . .
  3. Chúc các bạn có nhiều ảnh "ngoài khuôn khổ pháp luật cho phép" Bạn có thể downlink của toàn bộ boyis.com trong phần file đính kèm mình đã gửi kèm theo . Hy vọng đây chính là "chiêu" làm giảm bức xúc sau "vụ" 50% của Box Chat ! Jê ..ê. ê..êr ! Copy Left by III - udpatesofts.com ^_^ Happy - 8/3/2006 Link down vao UDS ma lay! Cách1: Cài DEAMON Tools 3.x. (chương trình tạo ổ DVD ảo) Rồi right-click vào biểu tượng của nó trên khay, chọn: Virtual CD/DVD-ROM--->Device 0:---->mount image Chọn file bin/cue đó. (file này là image của CD/DVD nên burn image được trong Nero) Thế là nó đã nằm trong ổ ảo của bạn Cách2: Cài Ultra ISO để đọc file này. Có 2 cách để sử dụng BIN/CUE : - Cách 1 : Dùng chương trình NeroExpress chọn burn from image , burn ra đĩa CD là xong. - Cách 2 : Dùng các chương trình tạo đĩa ảo ( Alcohol 120 % , Deamon ... ) để chạy.Hướng dẫn dùng Alcohol : +)Bước 1 : Vào File-->Open-->Chọn file cần mở -->Open +)Bước 2 : Sau khi mở nó sẽ hiện ở list màn hình,click phải chuột vào file cần mở chọn Mount On Device ,gán vào ổ ảo ( Thường là ổ E )
  4. Một số câu hỏi nhỏ trong VB, ASP, .NET ... Sau đây là một số câu hỏi nhỏ của các bạn tôi, bạn có thể dùng chúng để tô điểm thêm cho ứng dụng Visual Basic của mình. Đây không phải là những điều cao siêu, lạ lẵm và cũng không phải là cách giải thích tối ưu nhưng nó giúp chúng ta hiểu thấu đáo được một số vấn đề. Hy vọng sau khi đọc xong bạn sẽ "à thì ra là vậy ! ..." Làm sao để có được những dòng chữ chạy liên tục trên màn hình ? Thật ra chuyện này cũng dễ hiểu, bạn chỉ cần cắt chữ ở đầu đoạn văn bản và gắn nó vào cuối đoạn văn bản, làm liên tục như vậy sẽ tạo cho người dùng có cảm giác là dòng chữ đang chạy. Bạn hãy mở 1 form mới, trên đó tạo 1 textbox (Text1), gán 1 dòng văn bản vào thuộc tính text của textbox, tạo 1 timer (timer1). Khi form load sẽ khởi động Timer với trị Interval = 100 Private Sub Form_Load() Timer1.Interval = 100 End Sub Và timer sẽ xử lý các lệnh theo yêu cầu của bạn mỗi khi nó phát sinh 1 sự kiện thời gian. Private Sub Timer1_Timer() Dim x As String Dim y As String 'gán x = 1 ký tự đầu dòng văn bản x = Left(Text1.Text, 1) 'gán y là phần còn lại y = Right(Text1.Text, Len(Text1.Text) - 1) 'Hiển thị trở lại textbox theo thứ tự ngược lại. Text1.Text = y + x End Sub Bạn có thể thay textbox bằng labelbox để người dùng không thể can thiệp vào dòng văn bản đang chạy, lúc này bạn phải thay đổi thuộc tính caption thay vì text của textbox. Canh form giữa màn hình khi hiển thị ? Chỉ việc thêm đính lệnh này vào thủ tục tình huống FormLoad của form tương ứng.
  5. Me.Move (Screen.Width - Me.Width)\2, Screen.Height.Height - Me.Height)\2 Làm thế nào để tạo hiệu ứng 3D ? Bạn hãy mở 1 form trống, trên đó tạo 1 image, vẻ 4 đối tượng Line. Khảo sát tình huống MouseMove của Image, khi rê mouse trên Image lập tức 4 đối tượng line sẽ hiển thị xung quanh Image. Còn 3D ư ? Bạn chỉ việc cho 2 line của cạnh phải và dưới màu đen (Line1, Line2), còn 2 line của cạnh trái và trên màu trắng (Line3, Line4). [IMG]file:///C:/DOCUME%7E1/TAG/LOCALS%7E1/Temp/msohtml1/06/clip_i mage001.gif[/IMG]Form khi thiết kế Khi di chuyển Mouse trên form, mọi chuyện đều bình thường, 4 đối tượng Line không xuất hiện (thuộc tính Visible=False) Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Line1.Visible = False Line2.Visible = False Line3.Visible = False Line4.Visible = False End Sub Khi di chuyển mouse trên đối tượng Image, 4 line sẽ được xếp xung quanh và hiển thị lại bằng cách thay đổi các thuộc tính X1, Y1, X2, Y2 của line. Nhờ có màu sắc thích hợp nên ta có cảm giác Image nổi lên khi rê mouse đến. [IMG]file:///C:/DOCUME%7E1/TAG/LOCALS%7E1/Temp/msohtml1/06/clip_i mage002.gif[/IMG]Khi rê mouse đến Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Cạnh Phải Line1.X1 = Image1.Left + Image1.Width Line1.Y1 = Image1.Top Line1.X2 = Image1.Left + Image1.Width Line1.Y2 = Image1.Top + Image1.Height 'Cạnh dưới Line2.X1 = Image1.Left Line2.Y1 = Image1.Top + Image1.Height Line2.X2 = Image1.Left + Image1.Width Line2.Y2 = Image1.Top + Image1.Height 'Cạnh trái Line3.X1 = Image1.Left
  6. Line3.Y1 = Image1.Top Line3.X2 = Image1.Left
Đồng bộ tài khoản