Insert Title Labs

Twitter simple with VB.NET

Tue, 20 Oct 2009 17:23:21 GMT

Thought I would share my homebrew Twitter framework. I'll post a sample app using it in a bit.

Imports System

Imports System.IO

Imports System.Net

Imports System.Web

Public Module twitter

    'hard coded for testing

    Public username As String = "YOUR USER NAME"

    Public password As String = "YOUR PASSWORD"





    Public FriendTimeline As String = "http://twitter.com/statuses/friends_timeline/{0}.xml"

    Public Publictimeline As String = "http://twitter.com/statuses/public_timeline.xml"

    Public Archive As String = "http://twitter.com/statuses/user_timeline/{0}.xml"

    Public Replies As String = "http://twitter.com/statuses/replies.xml"

    Public Direct As String = "http://twitter.com/direct_messages.xml"

    Public AuthUser As String = "http://twitter.com/account/verify_credentials.xml"

    Public Update As String = "http://@twitter.com/statuses/update.xml"

    Public Followers As String = "http://twitter.com/statuses/followers.xml"





    Public Function Push(ByVal username As String, _

                         ByVal password As String, _

                         ByVal action As String, _

                         Optional ByVal mode As Integer = 0) As String

        Dim req As WebRequest

        If mode = 0 Then

            req = HttpWebRequest.Create(String.Format(action, username))

        Else

            req = HttpWebRequest.Create(String.Format(action))

        End If



        req.Credentials = New NetworkCredential(username, password)

        Try

            'returns raw xml

            Dim res As WebResponse = req.GetResponse()

            Dim ret As StreamReader = New StreamReader(res.GetResponseStream())

            Dim retData As String = ret.ReadToEnd()

            ret.Close()

            Return retData.ToString

        Catch ex As Exception

            Return "There was an error please try again..."

        End Try

    End Function



    Public Function PostStatus(ByVal status As String) As String

        Dim ret As String

        Dim req As WebRequest = HttpWebRequest.Create(Update)

        System.Net.ServicePointManager.Expect100Continue = False

        req.Credentials = New NetworkCredential(username, password)



        req.ContentType = "application/x-www-form-urlencoded"

        req.Method = "POST"

        Dim encoding As System.Text.ASCIIEncoding = New System.Text.ASCIIEncoding()

        Dim bt() As Byte = encoding.GetBytes(String.Format("status={0}", status))



        Dim s As Stream

        Try

            req.ContentLength = bt.Length

            s = req.GetRequestStream()

            s.Write(bt, 0, bt.Length)

        Catch ex As Exception

            Throw ex

        End Try



        Try

            'returns raw xml

            Dim res As WebResponse = req.GetResponse()

            If res Is Nothing Then

                Return Nothing

            End If



            Dim sr As StreamReader = New StreamReader(res.GetResponseStream())

            ret = sr.ReadToEnd().Trim()

            sr.Close()

        Catch ex As Exception

            Throw ex

        End Try



        Return ret

    End Function

End Module

Hey Joe, how goes it?

Wed, 22 Jul 2009 19:02:56 GMT

Selling off tattoofonts.org for what I consider a reasonable price.

Launched www.2xbg.com because every time I look for dual monitor wallpapers I end up on the same site, which means there is a market share there for me.

Restructured cheatfu.com and testing out YPN again, after all this time and it almost immediately jumped from $0 to $0.50/day.

Got some folks writing articles again and Adsense has jumped significantly.

I have a handful of single-purpose web sites I am looking at spending some time with

Also considering launching a simple project management solution, initially for me and my clients, but perhaps later as a simplified alternative to the likes of basecamp... who knows.

Got rejected by ValueMedia, again...fuckers.

Long Overdue Update

Wed, 15 Apr 2009 12:27:56 GMT

Reading Various Files into Datatable

Mon, 09 Mar 2009 12:33:48 GMT

   '04a - EXCEL
    '-----------------------------------------------------------------------

    'Returns query against Excel file as datatable
    Function ReadExcel(ByVal sqlString As String, ByVal path As String) As System.Data.DataTable
        Dim strConn As String = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & path & ";" & _
        "Extended Properties=""Excel 8.0;"""
        Dim recs As New Data.DataTable()
        Dim sql As New OleDbDataAdapter(sqlString, strConn)
        sql.Fill(recs)
        Return recs
    End Function

    '04b - ACCESS
    '-----------------------------------------------------------------------

    'Returns query against Access file database
    Function ReadAccess(ByVal sqlString As String, ByVal path As String) As System.Data.DataTable
        Dim strConn As String = _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";"
        Dim recs As New Data.DataTable()
        Dim sql As New OleDbDataAdapter(sqlString, strConn)
        sql.Fill(recs)
        Return recs
    End Function

    '04c - CSV
    '-----------------------------------------------------------------------

    'Returns datatable from CSV File
    Function ReadCSV(ByVal path As String) As System.Data.DataTable
        Dim sr As New StreamReader(path)
        Dim fullFileStr As String = sr.ReadToEnd()
        sr.Close()
        sr.Dispose()
        Dim lines As String() = fullFileStr.Split(ControlChars.Lf)
        Dim recs As New DataTable()
        Dim sArr As String() = lines(0).Split(","c)
        For Each s As String In sArr
            recs.Columns.Add(New DataColumn())
        Next
        Dim row As DataRow
        Dim finalLine As String = ""
        For Each line As String In lines
            row = recs.NewRow()
            finalLine = line.Replace(Convert.ToString(ControlChars.Cr), "")
            row.ItemArray = finalLine.Split(","c)
            recs.Rows.Add(row)
        Next
        Return recs
    End Function

More Handy .NET

Fri, 12 Dec 2008 03:28:02 GMT


'EXECUTE SQL Scalar or NonQuery
'Ex:
'dim count as integer = Execute("select....",True)
'OR
'Execute("update table set field=val where.... ")
Function Execute(strSQL As String, Optional ExecuteScalar As Boolean = False)
  Dim cmd As sqlCommand = conn.CreateCommand
  cmd.CommandText = strSQL
  If ExecuteScalar Then
    Return cmd.ExecuteScalar
  Else
    Return cmd.ExecuteNonQuery
  End If
End Function

'Returns Recordset as Datatable
'Ex:
'dGrid.datasource=FillRecs("select * from table")
Function FillRecs(ByVal sqlString As String) As System.Data.DataTable
  Dim recs As DataTable = New DataTable()
  Dim sql As New sqlDataAdapter(sqlString, conn)
  sql.Fill(recs)
  Return recs
End Function

'Returns Row Count
'Ex:
'if hasrecs(Datatable)
Function hasrecs(ByVal r As Data.DataTable) As Boolean
  Return (r.Rows.Count > 0)
End Function

Viewstate

Mon, 10 Nov 2008 04:42:38 GMT

Really, if your rendered code looks like this, seek help

Animation != Application

Sat, 01 Nov 2008 00:43:14 GMT

Frame-based illiteration engulfs world. Developers worldwide cry. Joe typos his way into dismal eXistenZ. Haloween rocked.

Handy ASP.NET Routines

Sat, 25 Oct 2008 18:13:09 GMT

Trace Output

Sub Trace(ByVal errorString As String, Optional ByVal x As String = "title not set")
    System.Web.HttpContext.Current.Trace.Write(x)
    System.Web.HttpContext.Current.Trace.Write(errorString)
End Sub

Quickly Access Page Elements from Codebehind

Function PG() As HttpContext
    'Ex:
    'PG.Response.Redirect("...")
    Return System.Web.HttpContext.Current
End Function

Quickly Access Application Settings

Function AP(ByVal x As String) As String
    'Ex:
    'MailMessage.To.Add(New MailAddress(AP("SupportAddress")))
    Return System.Configuration.ConfigurationManager.AppSettings(x)
End Function

Bullshit Talks

Mon, 13 Oct 2008 14:55:55 GMT

McCain

Obama

Merrill Lynch**	$349,170
Citigroup Inc	$287,801
Morgan Stanley	$249,377
Goldman Sachs	$220,045
JPMorgan Chase & Co	$206,392
AT&T Inc	$183,663
Credit Suisse Group	$175,503
PricewaterhouseCoopers	$163,670
Blank Rome LLP	$153,426
US Government	$152,118
US Army	$150,470
Wachovia Corp ***	$147,456
Greenberg Traurig LLP	$145,737
UBS AG	$141,365
Bank of America	$133,975
FedEx Corp	$121,904
Gibson, Dunn & Crutcher	$120,246
US Dept of Defense	$118,125
Lehman Brothers ****	$115,707
Bear Stearns*	$108,000

Goldman Sachs	$739,521
University of California	$697,506
Harvard University	$501,489
Citigroup Inc	$492,548
Google Inc	$487,355
JPMorgan Chase & Co	$475,112
National Amusements Inc	$432,169
Microsoft Corp	$429,656
UBS AG	$419,550
Lehman Brothers ****	$391,774
Wilmerhale Llp	$383,024
Time Warner	$375,063
Sidley Austin LLP	$370,916
Skadden, Arps et al	$360,409
Stanford University	$341,399
Morgan Stanley	$341,380
Latham & Watkins	$328,879
Jones Day	$309,960
University of Chicago	$294,237
General Electric	$290,584

NOTE: All the numbers on this page are for the 2008 election cycle and based on Federal Election Commission data released electronically on Monday, September 29, 2008.

*Owned by JP Morgan Chase (http://www.bearstearns.com/sitewide/our_firm/press_releases/content.htm?d=03_16a_2008)

**Owned by Bank of America (http://newsroom.bankofamerica.com/index.php?s=press_releases&item=8255)

*** Soon to be owned by Citigroup (http://www.chicagotribune.com/business/chi-wachovia-citigroup-080929-ht,0,6842426.story)

**** Owned by Barclays PLC (http://www.reuters.com/article/topNews/idUSN1932554220080920)

PostBackUrl Equals Change the Friggin' Form Action

Fri, 19 Sep 2008 02:13:10 GMT

Dim btn As New Button
btn.PostBackUrl = "www.insert-title.com"
btn.OnClientClick = "if(!validate())return false;"
btn.Text = "Submit"