Latest Entries

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

TwMediaDL


Greasemonkeyでダウンロードリンク生成はしていたのですが、
動画が3秒ごとに分割されていてダウンロードが面倒なうえ結合しないと見づらいしで、
うんざりしたので作りました。

readmeにも書いていますが、鍵アカウントのダウンロードには対応していません。

正常系がそれっぽく動いてることを確認しただけだったり、
ステータスバーが全く機能してなかったり、
英語がガバガバだったりで適当です。

ちなみに私はファイル名をこんな感じに設定してます。
$UserID\[$UserID]$TweetID{_$MediaIndex}



この画面の再現だけで力尽きました。

人力OCR

1:04
  Dim x As Long
  Dim y As Long

  Dim DWcount As Byte
  Dim count As Long
  Dim count2 As Long

  SetRange
  FileOpenFlag = True

  FileName = Application.GetOpenFilename
  'If FileName = False Then
  '   Exit Sub
  If FileLen FileName > 0 Then
    ReDim DataBuf 1 To FileLen Filename As Byte
  End If

  MakeFlag = True

  Open Filename For Binary As #1
    Get #1,,DataBuf
  Close #1

  If DataBuf 29 <> 24 Then
    MsgBox "24bitのBMPの?  です"
    Exit Sub
  End If

  XP = DataBuf 20 * 256 + DataBuf 19
  YP = DataBuf 24 * 256 + DataBuf 23
  XPRange.Value = XP
  YPRange.Value = YP
    'MsgBox x & "×" & y
  If XP > 255 Then
    MsgBox "  255dotで  で?"
  End If

  Select Case XP + 3 Mod 4
    Case 0
      DWcount = 0
    Case 1
      DWcount = 3
    Case 2
      DWcount = 2
    Case 3
      DWcount = 1
  End Select

  Redim R 1 To YP.1 To XP As Byte
  Redim G 1 To YP.1 To XP As Byte
  Redim B 1 To YP.1 To XP As Byte

  For y = YP To 1 Step -1
    For x = 1 To XP
      count = y + 1 * XP * 3 + DWcount
      count2 = x - 1 * 3 + 54
      B YP + 1 - y.x = DataBuf count + conver2 + 1
      G YP + 1 - y.x = DataBuf count + conver2 + 2
      R YP + 1 - y.x = DataBuf count + conver2 + 3
    Next x
  Next y
  ImageTrim
  ActiveSheet.Image1.Picture = LeadPicture Filename

  FileOpenFlag = False

  ErrHnd
    Exit Sub
End Sub
Sub MakeSheet
  If MakeFile = False Then
    MsgBox "24bitのBMP."
    Exit Sub
  End If

  Dim x As Long
  Dim y As Long

  Workbooks.Add
  Range Cells 1.1 .Cells LastYP - StartYP + 1.LastXP - StartXP + 1.select
  Selection.ColumnWidth = 1.63
  Selection.RowHeight = 13.5

  Application.ScreenUpdating = False
  ActiveWindow.Zoom = True
  Application.ScreenUpdating = False

  Range "A1" .select
  For y = StartYP To LastYP
    For x = StartXP To LastXP
      Cells y - StartYP - 1, x = StartXP + 1.Interior.Color = RGB R y, x , G y, x , B y, x
      Next x
    Application.ScreenUpdating = True
    Application.ScreenUpdating = False
読めたところまで。

一部日本語(多分漢字)、記号(括弧)が表示できてないと思う。
あってるかは知らないし実行もしてない。
コードの意味も理解してない。
と思ったら多分ここが出典元だ。

なんでよりにもよってVBAなんだ…。



採譜2年打ち込み1年内放置がほとんど。

某所でTVサイズをあげてからペースを上げてFullにしました。
2番以降ほとんどコピペだけど。

はじめてVRC6で真面目に制作するついでに、音色も作り直したりしました。
特にノイズ。

でも三角波の使い方がヘタすぎる。

拡張音源もMMC5以外は入手したので、少しずつ使っていきたいです。
それに耐えうるパート数の採譜と打ち込みをしないといけないんですがね…。

FC→SFC移植でもオリジナルに負けました。

pnir2 FA

FILENAME FeedbackAgent.exe
0000331D: 56 EB
0000331E: 6A 0F
0000331F: 01 90
再起動後のフィードバック情報送信のチェックボックスの初期値をオフにする。

2年前に作ったやつ。
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。