[Shebang]

IPARepo


This is a simple application to find cracked applications for your iDevice.
It features in-program downloading, and an easy to use search
feature. It also gives a nice little bleep when your download is complete.
There's also currently adspace on the download area of the program.
If you're interested, PM me with a 300x100 banner and I'll add it on for
a few days.

Changelog:
1.0.0.0 - Initial Release
1.0.0.1 - More stable, accurate downloader, as well as an improved context menu.
1.0.0.2 - Added an auto-updater, changed how search works.

Spoiler:

MainForm Source:[code=vbnet]Imports System.Reflection

Public Class Form1
Dim api As New AlienClass.Class1
Dim r() As String
Dim q() As String
Dim b As Boolean = False

Private Sub LatestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LatestToolStripMenuItem.Click
downloadForm.fileLink = r(ListBox1.SelectedIndex + 1)
downloadForm.fileName = ListBox1.SelectedItem.ToString
downloadForm.imageLink = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(api.getWebData("http://mspoints360.com/ads/ad.php"))))
downloadForm.Show()
End Sub

Private Sub ListBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ListBox1.SelectedIndex = ListBox1.IndexFromPoint(e.X, e.Y)
ContextMenuStrip1.Show(MousePosition)
End If
End Sub

Private Sub ViewThreadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ViewThreadToolStripMenuItem.Click
Process.Start("http://awardforums.com/showthread.php?tid=1242")
End Sub

Private Sub ToClipboardToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToClipboardToolStripMenuItem.Click
Clipboard.SetText(r(ListBox1.SelectedIndex + 1))
MessageBox.Show("Download link copied to clipboard!", "Link Copied", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

Private Sub ToBrowserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToBrowserToolStripMenuItem.Click
Process.Start(r(ListBox1.SelectedIndex + 1))
End Sub

Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseClick
If b = False Then
TextBox1.Clear()
b = True
End If
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
If TextBox1.Text <> "" Then
Dim x As String = api.getWebData("http://enapp.appvv.com/search?key=" & TextBox1.Text)
Dim links(21) As String
Dim imgs(21) As String
Try
For i = 0 To 20
links(i) = Split(x, "location.href='")(i).Split("'")(0)
Next
r = links
Catch ex As Exception
'[]'
End Try
Try
For i = 0 To 20
imgs(i) = Split(x, "data-original=""")(i).Split("""")(0)
Next
q = imgs
Catch ex As Exception

End Try
Try
For i = 1 To 20
ListBox1.Items.Add(Split(x, "<a class=""appname"" title=""")(i).Split("""")(0))
Next
Catch ex As Exception
'[]'
End Try
End If
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Dim s As String = api.getWebData("http://mspoints360.com/ads/update.php")
'If Assembly.GetExecutingAssembly().GetName().Version().ToString.Replace(".", "") < s.Split("|")(0) Then
' Dim result = MessageBox.Show("There is an update available! Would you like to update?", "Update Available", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
' If result = Windows.Forms.DialogResult.Yes Then
' Process.Start(s.Split("|")(1))
' Me.Close()
' Else
' End If
'Else
'End If
End Sub
End Class[/code]

DownloadForm Source:[code=vbnet]Imports System.Net

Public Class downloadForm
Public fileLink As String
Public fileName As String
Public imageLink As Bitmap
Dim w As New AlienClass.Class1
Private Sub downloadForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
PictureBox1.Image = imageLink
Dim x As New System.Net.WebClient
AddHandler x.DownloadProgressChanged, AddressOf client_ProgressChanged
AddHandler x.DownloadFileCompleted, AddressOf client_DownloadCompleted
x.DownloadFileAsync(New Uri(fileLink), fileName & ".ipa")
End Sub

Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
Dim percentage As Double = bytesIn / totalBytes * 100

ProgressBar1.Value = Int32.Parse(Math.Truncate(percentage).ToString())
Label1.Text = "Downloading... (" & Format(percentage, "0.00") & "%, " & Format(bytesIn / 1048576, "0.0") & "MB/" & Format(totalBytes / 1048576, "0.0") & "MB)"
End Sub

Private Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
MessageBox.Show("Download complete!", "Download Finished", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.Close()
End Sub


End Class[/code]

AlienClass Source:[code=vbnet]Imports System.Net, System.IO, System.Text

Public Class AlienClass

Public Function getBetween(ByVal main As String, ByVal start As String, ByVal startIndex As Integer, ByVal ending As String, ByVal endIndex As Integer) As String
Return Split(main, start)(startIndex).Split(ending)(endIndex)
End Function

Public Function getWebData(ByVal URL As String) As String
Return New StreamReader(WebRequest.Create(URL).GetResponse.GetResponseStream).ReadToEnd
End Function

Public Function checkUsername(ByVal CheckURL As String, ByVal Username As String, ByVal SuccessSTR As String) As Boolean
If getWebData(CheckURL & Username) = SuccessSTR Then
Return True
Else
Return False
End If
End Function

Public Function check404(ByVal CheckURL As String, ByVal Username As String) As Boolean
Try
Dim s = getWebData(CheckURL & Username)
Return False
Catch ex As System.Net.WebException
Return True
End Try
End Function
End Class[/code]

[Eternity]

Now make one for android !
Good work shebang : )

[Shebang]

Now make one for android !
Good work shebang : )

Android doesn't really have a reliable repo to use for this sort of thing, sadly.

[Platinum]

Nice shebang, I'm going to use this!! Do you mind if I'd advertise my CC API ? :O

[Shebang]

Nice shebang, I'm going to use this!! Do you mind if I'd advertise my CC API ? :O

I have no issues with it, do as you please.

[Platinum]

Nice shebang, I'm going to use this!! Do you mind if I'd advertise my CC API ? :O

I have no issues with it, do as you please.

Okay, then I'll be making a banner now. You should get a PM soon ^^