Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- If Len(TextBox1.Text) < 3 Then
- MsgBox("URL must not be empty")
- Exit Sub
- End If
- Dim endsl As Integer
- Dim recip As Integer
- endsl = InStr(1, TextBox1.Text, "make/") + 5
- endsl = InStr(endsl, TextBox1.Text, "/") + 1
- recip = InStr(1, TextBox1.Text, "recip") - 1
- TextBox2.Text = "https://www.jibjab.com/makes/" & Mid(TextBox1.Text, endsl, recip - endsl) & ".mp4"
- Process.Start(TextBox2.Text)
- 'https://www.jibjab.com/makes/7684de43-4e60-404c-a85d-b79929f90dc3.mp4
- 'https://www.jibjab.com/view/make/all_star_smash_mouth_birthday/7684de43-4e60-404c-a85d-b79929f90dc3?recipient_token=6e1e363c-a154-47d6-9f3a-873570b85fb0&utm_campaign=tx_recipient_notification&utm_source=cordial&utm_medium=email&fbclid=IwAR1p3ZH3lPgdHNxjNa_l2WvkMt-AEHaITLsT8ccReG-7LENYnVmtQuvXdbc
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- ' TextBox1.Text = "https://www.jibjab.com/view/make/all_star_smash_mouth_birthday/7684de43-4e60-404c-a85d-b79929f90dc3?recipient_token=6e1e363c-a154-47d6-9f3a-873570b85fb0&utm_campaign=tx_recipient_notification&utm_source=cordial&utm_medium=email&fbclid=IwAR1p3ZH3lPgdHNxjNa_l2WvkMt-AEHaITLsT8ccReG-7LENYnVmtQuvXdbc"
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- If Len(TextBox2.Text) < 3 Then
- MsgBox("URL must not be empty")
- Exit Sub
- End If
- Process.Start(TextBox2.Text)
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- Dim clipb As String
- clipb = Clipboard.GetText()
- If InStr(1, clipb, "jibjab") = 0 Then
- MsgBox("no jibjab link found on clipboard")
- Exit Sub
- End If
- If Len(clipb) < 3 Then
- MsgBox("URL must not be empty")
- Exit Sub
- End If
- Dim endsl As Integer
- Dim recip As Integer
- endsl = InStr(1, clipb, "make/") + 5
- endsl = InStr(endsl, clipb, "/") + 1
- recip = InStr(1, clipb, "recip") - 1
- Process.Start("https://www.jibjab.com/makes/" & Mid(clipb, endsl, recip - endsl) & ".mp4")
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement