ฟอรั่มของบล็อก http://pssix.blogspot.com


อยากเขียนโปรแกรม ตรวจสอบลิงค์เว็บ และดึงข้ดมูล แบบรันดอม ตัวเลข 0-9 หรือตัวอักษร a-z

Share

eroieroieroi
สมาชิกทั่วไป
สมาชิกทั่วไป


จำนวนข้อความ : 13
ความนิยม : 0
เข้าร่วมเมื่อ : 10/10/2011

อยากเขียนโปรแกรม ตรวจสอบลิงค์เว็บ และดึงข้ดมูล แบบรันดอม ตัวเลข 0-9 หรือตัวอักษร a-z

ตั้งหัวข้อ by eroieroieroi on 30/04/15, 12:49 pm

คือผมอยากเขียน ให้โปรแกรม ตรวจสอบลิงค์ แบบรันดอม ตัวเลข 0-9 หรือตัวอักษร a-z หรือ หรือ ตัว_ รวมกันได้หรือไหม้ รันดอมแบบ 5 ตัวอักษร หรือแบบแบบ กำหนด 1 2 3 ตัวอักษร  รันดอม อีก 1 2  ตัว แล้วดึงข้อมูลเป็นไฟร์ txt
ตามตัวอย่างลิงค์ด้านลาง

ลิงค์นี้ ก็ เปรียบเหมือนชื่อผุ้ใช้งาน
จะแบ่งออกเป็น 3แบบ คือ 1.สมัครไปแล้ว 2.ยังไม่ได้สมัคร 3.โดนแบนอยู่
แล้วดึงข้อมูล ออกมาเซฟเป็นไฟร์ txt เมือ่ตรวจสอบ เส็ดแล้วโดย แยก ไฟร์ txt เป็ฯ 3 หัวข้อ

ตัวอย่างลิงค์ 3แบบ  พวกนี้จะเป็นชื่อผู้ใช่ครับ แบบ 5 ตัวอัักษร    B_M_B    11233   10aht  

[You must be registered and logged in to see this link.]     ลิงนี้จะเป็นสมัครแล้ว

[You must be registered and logged in to see this link.]      ลิงค์นี้โดนแบนอยู่

[You must be registered and logged in to see this link.]       ลิงค์นี้ยังไม่ได้สมัคร

น่าตาโปรแกรมไม่ต้องสวย ก้ได้ครับ ให้เป็น แบบ Cmd ก็พออยากได้แบบ นั้น อิอิ ขอบคุณครับ

เท่าที่ผมอ่านๆดู ผ่านๆ มันสมารถ เปิดน่าเว็บไซ และดึงข้อมูลได้ เป็น txt ได้ ด้วย ด้วย การเขียนโค้ด AutoIt
แต่ผมไม่แน้ใจว่ามันจะรันดอม 5 ตัวอษร หรือกำหนดบางตัวได้หรือเปล่า
ถ้าทำได้ผมจะค่อยๆมาศึกษาดูที่ละนิดครับผม

thunmor
PSsix Member
PSsix Member


จำนวนข้อความ : 26
ความนิยม : 22
เข้าร่วมเมื่อ : 06/08/2012

Re: อยากเขียนโปรแกรม ตรวจสอบลิงค์เว็บ และดึงข้ดมูล แบบรันดอม ตัวเลข 0-9 หรือตัวอักษร a-z

ตั้งหัวข้อ by thunmor on 30/04/15, 05:00 pm

ต้องการสุ่มประมาณแบบนี้ใช่ปล่าว


Code:
$text = ""
   For $i = 1 To 5
      $text &= Chr(Random(97, 112, 1))
   Next
MsgBox ( 0, "สุ่มอักษรaถึงz จำนวน5 ตัว", $text  )

$num = ""
   For $i = 1 To 10
      $num &= Chr(Random(48, 57, 1))
   Next
MsgBox ( 0, "สุ่มตัวเลข0-9 จำนวน10 ตัว", $num  )

$all = ""
   For $i = 1 To 50
      $all &= Chr(Random(0, 122, 1))
   Next
MsgBox ( 0, "สุ่มอะไรก็ได้ 50 ตัวอักษร", $all  )

MsgBox ( 0, "เอาที่สุ่มได้ทั้งหมดมารวมกัน", $text &"_"& $num &"_"& $all  )

    เวลาขณะนี้ 22/10/17, 12:45 am